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Preface 

The microcomputers from Tandy Corporation/Radio 
Shack are among the most popular around the world for use 
in the home, the classroom, the business office. In fact, all of 
the various TRS-80 models, taken together, are the all-time 
best-selling personal computers to date. 

The lightweight lap-sized design of the Model 100 
Micro Executive Work Station, its powerful Microsoft 
BASIC, its built-in programs, itscommunicationscapability, 
all add up to place the Model 100 at the forefront of the new 
wave of portable computers for use anywhere by students, 
businessmen, teachers, parents, professionals, hobbyists, 
scientists, doctors, lawyers, engineers, and all others who 
want to learn and use the new technology. 

This powerful computer is not a toy! It is an executive 
work station. It is a communications station. It is a teacher, a 
helper, a powerful tool. The hardware and software combi- 
nation adds up to one highly useful machinefor the business 
environment, the classroom, and the home. 

The total number of applications to which the Model 
100 Portable Computer can be put is limited only by the 
scope of the imagination. In this book, we have attempted to 
lead the way by creating and sharing 44 new, practical sets 
of applications software for your use. 

This book, as well as all published by ARCsoft Pub- 
lishers, is written for newcomers, novices and first-timers, 
as well as for advanced users of microcomputers needing 
new ideas. Our intention has been to provide 44 easy-to- 
type-in-and-run programs for the TRS-80 Model 100 and 
other computers using the same Microsoft version of the 
BASIC computer programming language. You type these 
programs into your computer and it does the rest. You do 
not have to be a programmer or program writer to use this 
book. 


— Jim Cole 
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Introduction 

The TRS-80 Model 100 Portable Computer has created 
more excitement in the microcomputer industry than any 
machine to come along in years! 

With the arrival of this new instrument comes a need 
for practical, useful software to make it do all of the things 
you imagine it will do. What can it do? Just about anything 
you can imagine. The purpose of this book is to point out 44 
different directions your thinking might take as you start to 
plan new uses for your own Micro Executive Work Station. 

You’ve purchased the hardware. You’ve installed bat- 
teries in it, you’ve read the owner’s manual, you know how to 
turn it on and enter a simple BASIC program. Now . . . what 
will you do with it? Here are 44 programs to get you started. 

We aim to provide software which is easy to type in via 
the Model 1 00 keyboard. These programs are complete and 
ready to run immediately. They have been thoroughly 
tested to make sure they work perfectly, with no bugs. 

These programs are useful in themselves. But we also 
hope you will find they make good starting points for further 
development as you learn more and more about how to 
program your own computer. Read these programs. Type 
them into your Model 1 00. Watch them run. Analyze how the 
lines in the listings cause the computer to step through a 
sequence of operations to reach a final goal. You’ll see and 
understand how programs are organized, how they work. 

Use these practical and fun programs as they are now 
and then, later, modify them to do more or different work. 
Expand them to suit your needs as your interests grow. 

These programs are designed to be typed directly into 
your computer, via its keyboard. No other programming is 
needed to put these software listings to immediate use. 

We assume you have read the owner’s manual and 
other instructional materials which came with your Model 
100 and with any accessories you may have. You know how 
to turn on the computer, how to get into the BASIC program- 
writing mode, how to attach any accessories you may have. 
If you don’t know these beginning steps, please refer to the 
TRS-80 Model 100 owner’s manual. 

You do not have to be a programmer to use these pieces 
of software. Just type them in, as you find them here, and 
run them. They will work! 
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Computer printouts 

To make sure no bugs or errors appear in this book, we 
have written and tested each of these programs on our own 
TRS-80 Model 100. We have printed each one on aTRS-80 
Line Printer. The hardcopy printout from that line printer is 
reproduced directly in this book. 

The Model 100 operated the printer and listed these 
programs. No human hands came between the computer 
and these listings so no retyping errors or proofreading 
errors have been introduced. You should find that these 
programs will run exactly as reproduced here. 

If, after typing in a program, you get an error message 
during a run, compare your typed program carefully with 
the program lines in this book. Remember that every space, 
punctuation mark, letter, number and symbol counts. Each 
must be in the computer exactly as in this book. 

If you do get an error message, the most likely cause 
will be found to have been a typing error made while trans- 
ferring a program from this book to the computer. However, 
should you find an error in this book, please call it to the 
attention of the author by sending a postcard or letter to him 
in care of ARCsoft Publishers, P.O. Box 132, Woodsboro, 
MD 21798 USA. The author will appreciate being able to 
make any necessary corrections to future editions of this 
book. 

Home, school and office 

This book has been organized into three sections for 
your convenience in locating programs. The first section 
includes practical programs for use in the home, in the 
classroom and in the business or professional office or 
laboratory. Within the first section, the programs have been 
further subdivided into three categories, including pro- 
grams of a business interest, personal finance programs, 
and programs for self-help and self-improvement. 

The second section of the book holds what we call 
programs for a fun break. These are exciting and chal- 
lenging game programs designed to brighten your day and 
give you a break from the more serious nature of other com- 
puter work. 

The third section holdsa number of programs designed 
to display graphics on the computer’s LCD screen. These 
are both practical and informative. 
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Naturally, these sections, as we have divided the book, 
are not rigid and exclusive. Undoubtedly, you will find 
something in one section which will be applicable in a dif- 
ferent setting. A business program may be educational. A 
personal finance program may have business use. Business 
or finance or personal programs are in the graphics section. 

Try them all. They are great fun to run. And they are 
especially designed to be short so you won’t have to spend 
hours typing one program into your Model 100. 

Endless running 

Many of the programs in this book will continue to run 
until you command them off manually, via the BREAK key. 
You may stop any run, at any time, by pressing the BREAK 
key on the right side of the keyboard. 

REMarks 

As you read through these programs you will notice 
very few REM, or remarks, statements. The author’s training 
in writing BASIC-language computer programs for battery- 
powered portable computers included an emphasis on 
brevity and saving memory space. A sharp editing pencil 
was in order — and still is! 

REMarks and explanations in software are out. Honing, 
fine-tuning and waste trimming are in. Use of coding form 
worksheets for program writing is encouraged. Such work- 
sheets can be found in the publication, Pocket Computer 
Program Writing Workbook, by this author, ISBN 0-86668- 
817-X, published by ARCsoft Publishers. Your objective 
always should be to make the most efficient use of avail- 
able memory. 

And here’s another important note to remember. Even 
though they may be headed toward the same goal, no two 
programmers will write the exact same list of BASIC instruc- 
tions, or program lines, from scratch. As you load these 
programs into your Model 1 00, one at a time, you can make 
modifications to suit your personal needs and interests if 
you want to. For instance, the exact wording of PRINT state- 
ments can be changed. Or, two or more programs can be 
combined into one grand scheme. Your applications may 
vary. 

By the way, if you want to load more than one of these 
programs into your Model 100 at the same time, be sure to 
use different sets of line numbers for different programs. 
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There cannot be two lines with the same number. For 
example, only one line can be numbered 10. There can’t be 
two lines numbered 10 in the computer at the same time. 

Computer folks use the words ENTER and RETURN 
interchangeably. The two words usually refer to the key- 
board key which signifies to the computer that the end of a 
line has been reached. In this book, you will use the ENTER 
key which is located on the right-hand side of the keyboard. 
For example, you ENTER a program line into the computer 
by typing it on the keyboard and pressing the ENTER key at 
the end of the line. Pressing ENTER causes the program line 
to be placed in the computer’s program memory. 

Other computers 

These programs will run exactly as they are found in 
this book on any computer using the same Microsoft ver- 
sion of the BASIC language as that used in the TRS-80 
Model 100. For example, they will run on the NEC Portable 
Computers in the PC-8200 series. 

Other computers, with various versions of Microsoft 
BASIC, may require very slight changes to program lines. 

Computers with more radically different versions of 
BASIC may require more extensive changes to program 
lines. 

These are, however, very simple and straightforward 
BASIC programs which will require little modification to 
run on any computer set up to be programmed in the BASIC 
language. 

The most significant changes, when needed for other 
computers, will be in the area of screen graphics. Graphics 
commands differ from model to model in the microcom- 
puter world. Also, use of multiple-statement lines, the colon, 
line numbering, spacing, logical tests, multiplication 
symbols, print statements, and other instructions may differ 
in other brand-names of computer hardware. 

Refer to the owner’s manual which came with your non- 
Model 100 computer to compare its version of the BASIC 
language with that found in the TRS-80 Model 100. 

The author would like to have your suggestions for 
future editions of this work, or for other titles in this series 
for the Model 100 Portable Computer line from Radio 
Shack. The author may be addressed in care of ARCsoft 
Publishers. 
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Standalone vs. subroutine 

The programs in this book may be used as portions of 
larger lists of instructions to your Model 100 Portable 
Computer. They can be written in as GOTO or GOSUB 
objects. When doing so, make appropriate changes to the 
first line (usually numbered 10 in this book) and to the last 
line of each program. Remember that no two lines can have 
the same line number. 

In creating a subroutine, remember that every GOSUB 
must have a RETURN. RETURN must be the last line of 
every subroutine. 

When working one of these programs into a larger set 
of instructions, be especially careful of your memory or vari- 
able names or labels. They must agree with, and fit into, 
those you are using in the entire program. 

Learning programming 

These programs are written to be typed into your 
Model 1 00 Portable Computer just as you find them here — 
with no extra programming needed. 

Many of the programs, and most of the programming 
advice, in this book will be of interest to old-hands, as well 
as newcomers, since we are presenting newtwistsand more 
powerful exercises aimed at making your computer do more 
work, more quickly. 

Amidst the 44 programs in this book, you will find 
countless ideas for using your portable computer. Each 
piece of software is intended to make you a more-versatile 
programmer and make your programming chores lighter. 

This is not a replacement for the owner’s manual which 
came with your portable computer. You need to read that 
book thoroughly first, then use this book as a supplement. 

Use this book to stimulate your thinking about how to 
approach various software problems and projects. Use it to 
get good ideas for new and different approaches to all of 
your programming goals. While you grow and develop as a 
program author, modify these programs to make your own 
computer do even more. 

Good programming! 
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Making Change 

A penny saved is a penny earned. Every businessman 
is aware of pennies, nickels, dimes, even quarters lost by 
sales people who can’t make correct change. If you have 
sales people accepting cash away from your register, or if 
you’re too small to have a cash register, use this program to 
make correct change. 

This highly unusual program will be exciting for you to 
type into your computer, and run, even if you aren’t a busi- 
ness person. 

Key in the amount of the sale and the amount of money 
tendered by the customer and this software will tell you 
exactly how many quarters, dimes, nickels and pennies to 
hand back to the customer. 

Program Listing 

10 CLS; CLEAR 

20 INPUT" NEW SALE AMOUNT IN CENTS " ; X 
30 INPUT" AMOUNT TENDERED IN CENTS " ? T 
40 PRINT 
90 A=T~X 

100 IF A <25 THEN 140 

110 Q=Q+1 

120 A~A~25 

130 GOTO 100 

140 IF A< 10 THEN 180 

150 D-D+i 

160 A-A-l 0 

170 GOTO 148 

180 IF A <5 THEN 220 

190 N-N+l 

200 A”A-5 

210 GOTO 180 

220 P~-A 

230 PRINT " COR RE CT CHANGE IS s " 

240 P R I NT Q ; " QUARTS RS " 

258 PRINT D; " DIMES" 

260 PR I NT N ; " N I CKLES " 

270 PRINT P?" PENNIES" 

280 PRINT "PRESS M FOR MORE OR Q TO QUIT” 
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290 K*= INKEY* 

300 IF K*=" " THEN 290 
310 IF K*="M" THEN 10 
320 IF K*=" Q" THEN END 
330 GOTO 280 

Sample Run 

NEW SALE AMOUNT IN CENTS ? 12 

NEW SALE AMOUNT IN CENTS ? 12 
AMOUNT TENDERED IN CENTS ? 100 

CORRECT CHANGE IS 2 
3 QUARTERS 
1 DIMES 
0 NICKLES 
3 PENNIES 

PRESS M FOR MORE OR Q TO QUIT 


NEW SALE AMOUNT IN CENTS ? 77 

NEW SALE AMOUNT IN CENTS ? 77 
AMOUNT TENDERED IN CENTS ? 100 

CORRECT CHANGE IS: 

0 QUARTERS 

2 DIMES 

0 NICKLES 

3 PENNIES 

PRESS M FOR MORE OR Q TO QUIT 


NEW SALE AMOUNT IN CENTS ? 1 

NEW SALE AMOUNT IN CENTS ? 1 
AMOUNT TENDERED IN CENTS ? 25 

CORRECT CHANGE IS: 

0 QUARTERS 
2 DIMES 
0 NICKLES 
4 PENNIES 

PRESS M FOR MORE OR Q TO QUIT 
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Advertising Costs 
Cost Per Thousand 
Cost Per Unit Sold 

It’s a lot of trouble to determine exactly how much audi- 
ence you are buying with your advertsing dollar. Why not 
let your computer do all the work? 

Suppose your local radio station time salesperson told 
you he could deliver 51,000 listeners for each $133 ad you 
run on his station. And your local newspaper space sales- 
man said he could deliver 160,000 readers for each $330 ad 
you run in his newspaper. Which would be the better quan- 
tity buy for you? 

This program gives you the answers in black and white. 
The newspaper would cost you about $2.06 for each 1000 
readers while the radio station would cost almost $2.61 per 
thousand listeners. Now all you need to decide is which 
audience you prefer. 

By the way, such cost-per-thousand comparisons 
apply to magazines, TV or any medium as well as radio and 
newspapers. 

This program also computes advertising cost perquan- 
tity of units sold. Suppose your favorite newspaper did have 
the lowest cost-per-thousand so you placed an ad. It cost 
you $330. Lots of customers came by to check out your mer- 
chandise and you actually sold 77 pieces. What did it cost 
you to sell each item? 

With this program you’ll know it cost you $4.28 in adver- 
tising money to sell each unit. 

This program runs until you press the BREAK key. To 
stop the run, press BREAK. 

Program Listing 

10 CLSs CLEAR 
20 50SUB 900 

30 PRINT s PRINT 3 125, "COST PER THOUSAND” 

5 SPACE* <4)5 ” PRESS T ” 

40 PRINT 3 165, "COST PER UNIT SOLD" 

; S P A CE * ( 3 ) 5 " P RES S S " 

50 K$= INKEY* 


15 


60 IF K*- " ” THEN 50 

7© IF K$= M T" THEN 200 

80 IF K$="S" THEN 500 

90 PRINT a 250-, !! PRESS ONLY T OR S" 

100 GOTO 50 
2©0 CLS8GOSUB 900 

21© PRINT a 125, "COST OF AD" 5 SPACE* < 4 > 
s INPUT A 

220 PR I NT a 1 65 , " C I RCULAT I ON " i SPACED < 3 
s INPUT 0 

230 M=1000*(A/C> 

24© M~ I NT < 1 00*M+0 . 5 > / 1 00 

250 PRINT a 205, "COST /THOUSAND $ " i M 

260 PRINT 3 245," PRESS M FOR MORE" 

27© IF INKEY*= H " THEN 270 

280 GOTO 10 

500 CLS8GOSUB 90© 

510 PRINT S 125," COST OF AD" ; SPACE* ( 8) 

: INPUT A 


it 

* 


520 PRINT a 165, "NUMBER UNITS SOLD" 

; SPACE* < 1 ) ; : INPUT U 
530 C=A/U 

540 C= I NT < 1 ©0* G+0 « 5 ) / i 00 

550 PRINT a 205, "AD COST/UNIT SOLD *" ?C 

560 GOTO 260 

890 END 

900 L I NE ( 78 i 2 ) -(15 4 ,205,1, BF 
910 LINE (82, 6) -( 150, 16) ,2,BF 
920 PRINT a 54," ADVERT I S I NG " 

930 RETURN 


Sample Run 


ADVERTISING 

COST PER THOUSAND PRESS T 

COST PER UNIT SOLD PRESS S 

ADVERTISING 

COST OF AD ? 133 

CIRCULATION ? 51000 
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COST/ THOUSAND $ 2.61 
PRESS M FOR MORE 


ADVERTISING 


COST PER THOUSAND PRESS T 

COST PER UNIT SOLD PRESS S 

PRESS ONLY T OR S 


ADVERTISING 


COST OF AD ? 2500 

NUMBER UNITS SOLD ? 77 
AD COST/UNIT SOLD * 32„47 
PRESS M FOR MORE 


Daily Codes 

Businesses everywhere are concerned these days with 
security. Banks, credit card managers, warehousemen, 
shipping clerks, office managers, all need private daily 
codes for internal use to prevent unauthorized admission to 
storage areas, financial records, private files. 

Now you can use your computer to generate a set of 
secret codes, one for each day of the week. This program 
generates a series of pseudorandom numbers and displays 
a table of those numbers alongside names of the days of the 
week. You can change the list every day or as often as you 
like because every time you run this program a new set of 
numbers is generated. 

If you don’t like a set of numbers, merely press any key 
on the computer keyboard and the machine will generate 
and display a new set of daily numbers. As written, this pro- 
gram generates a five-digit number for each day. The 
random-number generator subroutine starts at line 520 and 
ends at RETURN. 

The program runs until you press the BREAK key to 
stop it. 

By the way, this program also shows how to format the 
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LCD screen display with a box drawn around information 
and a two-column display of numbers. 

Program Listing 

10 CLSs CLEAR 

20 PRINT a 43, "DAILY CODES FOR WEEK OF " 
; DATES 

30 LINEU6, 21 >-(210,57), 1,B 
90 GOSUB 500 

100 PRINT 3 124, "MONDAY "! X : GOSUB 500 
110 PRINT 3 140," TUESDAY " ; X : GOSUB 500 
120 PRINT 8 164, ” WEDNESDAY " 5 X s GOSUB 500 
130 PRINT 8 180, "THURSDAY" 5X5GOSUB 500 
140 PRINT a 204, "FRIDAY " ; X s GOSUB 500 
150 PRINT 3 220, "SATURDAY" 5XSGOSUB 500 
160 PRINT a 253, "SUNDAY" ;X 
200 IF INKEYS-" " THEN 200 
210 GOTO 10 
400 END 

500 FORO= 1 TO VAL < RIGHTS ( TIMES, 2) ) 

: X-INT ( 1 00000* RND < 1 ) ) -'NEXT Q 
510 IF X< 10000 THEN 500 
520 RETURN 

Sample Run 

DAILY CODES FOR WEEK OF 04/10/83 

MONDAY 13314 TUESDAY 45574 
WEDNESDAY 69184 THURSDAY 72080 
FRIDAY 57265 SATURDAY 27207 
SUNDAY 73727 


DAILY CODES FOR WEEK OF 04/10/83 

MONDAY 57756 TUESDAY 94954 
WEDNESDAY 49796 THURSDAY 77256 
FRIDAY 45035 SATURDAY 77203 
SUNDAY 48860 
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Inventory 

This program seems simple at first glance but it allows 
you to call into play a tremendous amount of the program 
power and memory capacity built into your Model 1 00 Port- 
able Computer. With this software, you can keep an inven- 
tory of items you have in stock. The inventory includes item 
name, quantity on hand and a brief description of the item. 

This workaholic program uses many of the special fea- 
tures found in your computer, including the ability to do 
reverse printing on the LCD display screen, generating 
sound, storing in RAMfiles built into your computer memory. 
The program features multiple erase warnings, automatic 
return to the computer’s main menu when finished, menus 
and other refinements. 

As written here, the program causes the computer to 
sound a BEEP when the computer wants you to type in 
some data. You can disable this beep by eliminating the 
lines which have the BEEP command. If you wish to keep 
the lines in the program for future use, but disable the BEEP 
for now, insert a REM or an apostrophe(’) between the line 
number and the BEEP command. 

A very powerful feature of the portable computer is the 
ability it gives you to store data onboard, in RAMfiles, with- 
out needing external tape recorders or disk drives. The 
RAMfiles are portions of the computer’s memory set aside 
to hold such data. The data will be held as long as the 
memory backup battery is in good working condition. This 
program stores in, recalls from and adds to RAMfiles. 

Adequate warning is given the user before any RAM- 
files are erased, as you will see when you type in and run 
this program. By the way, make sure the CAPS LOCK key is 
depressed to its on position when running this program. 

The program is menu driven. That means that, at every 
step of the way through a run, the programs asks you what 
you want to do next. It does that by presenting a menu of 
choices available to you at that point. The menus can be 
seen below in the SAMPLE RUN. 

Please note, as you run this program, the length of 
some data items (number of letters, numbers, symbols, 
spaces) is limited. Please limit the item name to 8 letters, 
numbers, symbols and spaces. Limit thequantityto6digits. 
Hold the description to 18 or fewer characters. 
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Program Listing 


1 0 CL 5 s CLEAR s RV*~CHR* < 27 ) + " p " 
s NV*™CHR* ( 27 ) + " q " 

1 0© P R I NT a 55 , RV* ; ” I NVENTORY " ? NV* 

1 i 0 L I NE ( 8? , 7 ) - < .1 43 , 1 5 ) , 1 , B 

120 PRINT 3 .1 23 1 11 ADD TO INVENTORY LIST” 

? SPACE* < 5 > 5 i! PRESS A " 

13© PRINT S 163, " READ INVENTORY LIST” 

; SPA C E * < 7 > 5 " P R E S 3 R " 

140 PRINT a 203, ” ERASE INVENTORY LIST” 

? SPACE* (6) ? ” PRESS E" 

150 PRINT a 243, "OUT T" ; SPACE* (22) 

5 "PRESS 0" 

160 BEEP 
200 K*~ I NF EY* 

210 IF K$= M " THEN 200 
220 BEEF- 

230 IF K*-"” A” THEM 400 

24© IF K*“” R ,! THEM 600 

250 IF K*-" E” THEM S00 

260 IF K*=‘ , a n THEN 1100 

270 L I NE < 83 ,7)- (161, 15) ,2,E 

280 PRINT a 50, "PRESS ONLY A, R OR Q” 

290 GOTO 20© 

400 CL 5 

4 1 © PR I NT 3 5© , RV* ? ” ADD T 0 I NVEWT ORY L I ST " 


420 L I NE < 59, 7 > - (185,15), 1 , B 
430 PRINT 8 120," ITEM NAME s " $ : INPUT IT* 
440 IF LEN < IT* ) >8 THEN PRINT" PLEASE LIMIT 
ITEM NAME TO 8 LETTERS" : PRINT S 132 
, SPACE* (19)5 GOTO 430 
442 IF LEN (IT*) < 8 THEN IT*-IT*+SPACE* 
(S-LEN< IT*) ) 

445 BEEP 

447 PRINT a 160, SPACE* (39) 

45 0 P R I NT a 1 60 , ” QUANT I T Y OF I TEM 5 " S 
s INPUT QY* 

452 IF LEN ( QY* ) >6 THEN PRINT” PLEASE LIMIT- 
QUANTITY TO 6 DIGITS" 5 PRINT 8 179 
, SPACE* ( 20 ) 5 GOTO 450 
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453 IF LEN < QY* } <6 THEN QY*=QY*+SPACE* 

( 6 “LEN < QY* ) ) 

455 BEEP 

458 PRINT a 200, SPACE* (40) 

460 PRINT a 200, "DESCRIPTIONS INPUT DS* 

462 IF LEN ( DS* ) >18 THEN PRINT” PLEASE 
LIMIT DESCRIPTION TO 18 LETTERS" 

5 PRINT a 214, SPACES < 26 ) s GOT 0 460 

463 IF LEN < DS* ) < 1 8 THEN DS*=DS*+SFACE* 

( 18--LEN ( DS* ) ) 

465 BEEP 

470 RF*™ I T*+SPACE* ( 4 ) +OYT+S FACET < 4 ) +DS* 

500 OPEN "RAM! I NOT RY. DO" FOR APPEND AS 1 
510 PR I NT# 1 , RF* 

52© CLOSE# 1 
530 GOTO 10 
600 CLS 

610 PRINT a 1 2 , RV* ? " READ I NG THE LIST”? NV* 

620 LINE<71,0)-<71,7>, 1 

630 LINE -(167,7), 1 

640 LINE --(167,©), 1 

700 ON ERROR GOTO 795 

705 OPEN " RAM s INVTRY- DO" FOR INPUT AS 1 
710 PR I NT a 80 , " I TEN " ? SPACE* <8)5" QUANT I T Y " 

5 SPACE* ( 2 ) 5 "DE5CRIPTI ON ” 

715 PRINT 8 120," " ? SPACE* (8) - " 

? SPACE* < 2 ) ? ” ” 

720 INPUT# 1 , RF* 

730 PRINT a 160, RF* 

750 PRINT a 240, "PRESS ANY KEY TO SEE 
MORE OF THE LIST” 

760 IF INKEY*=" " THEN 760 
765 BEEP 

770 PRINT a 160, SPACE* (39) 

775 IF EOF ( 1 ) THEN 785 
780 GOTO 710 
785 CLOSE# 1 5 CLS 

790 PRINT a 120, "THERE IS NOTHING MORE 
ON THE LIST" sFOR T=1 TO 1000 ’ NEXT T 
••GOTO 10 

795 PRINT a 120, "THERE ARE NO ITEMS ON 
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THE L I ST " ! FO R T= 1 TO 1500 s ME XT T : GOTO 1 0 
000 CLS 

810 FOR L-~ 1 TO 3 

815 L I ME < 95 , 7 ) ~- £ 137, 15) , 1,B 

820 PRINT a 56, RVS? "WARNING" 

825 FOR T~1 TO 150 s NEXT T 

830 IF L < 3 THEN CLS 

335 FOR T“ 1 TO 25 s NEXT T 

840 BEEP 

845 NEXT L 

850 PRINT NOT 

860 PRINT a 125, "YOU WILL ERASE THE 
WHOLE LIST” 

870 PRINT 3 205," TO ERASE THE LIST" 

5 SPACES <5)5 ” PRESS E ” 

8S0 PRINT a 245, "TO PREVENT ERASING" 

5 SPACES < 4 ) ; " PRESS P" 

900 KS” INKEYS 

910 IF K$~ " " THEN 900 

915 BEEP 

920 IF KS--" E" THEN 1000 
930 IF KS : ~" P" THEN 10 
940 GOTO 900 
1000 CLS 

1010 LINE<95,7>-< 137, 15), 1,B 
1020 PRINT 3 56, RVS? "WARNING" 

1030 PRINT NVS 

1040 PRINT a 120, "ARE YOU SURE YOU 
WANT TO ERASE” 

1050 INPUT" ANSWER YES OR NO "?YNS 
1055 BEEP 

1060 ON ERROR GOTO 1090 

1065 IF YN$=" YES" THEN KILL " INVTRY. DO" 

: GOTO 10 

1070 IF YNS= " NO " THEN 10 
1080 GOTO 1050 

1090 CLS " PRINT a 120, " THERE WAS NOTHING 
ON THE LIST TO ERASE": FOR T=1 TO 
1000: NEXT T : GOTO 10 
1100 CLS 

111.0 PRINT a 55, "END OF RUN" 
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i 1 20 FOR T=1 TO 100? NEXT T 
1130 MENU 


Sample Run 


1 NVENTORY 


ADD TO INVENTORY LIST- 
READ INVENTORY LIST 
E RASE I NVENTO R Y L. I ST 
QU I T 


FRESS A 
PRESS R 

pppCC; p 

r if- I>m w — . 

PRESS Q 


ADD TO INVENTORY LIST 

ITEM NAME?? WIDGET 
QUANTITY OF ITEMS? 12 
DESCRI PT I ON : ? BLACK BOXES 

READING THE LIST 


ITEM 


QUANT I TV DESCR I PT I ON 


BLACK BOXES 


PRESS ANY KEY TO SEE MORE OF THE LIST 


INVENTORY 


ADD TO INVENTORY LIST 
READ INVENTORY LIST 
ERASE INVENTORY LIST 
QU I T 

WARWTWf; 

■ft ; i i i »•*.:* 


PRESS A 
PRESS R 
PRESS E 
PRESS Q 


YOU WILL ERASE THE WHOLE LIST 
TO ERASE THE LIST PRESS E 
TO PREVENT ERASING PRESS P 

WARNING 


ARE YOU SURE YOU WANT TO ERASE 
ANSWER YES OR NO ? YES 


Daily Receipts Adder 

This program allows a businessman to quickly add up 
his day’s receipts, from both wholesale and retail sales as 
desired. 

The computer first will collect wholesale dollars from 
you. To bypass this or end a list of wholesale-dollar entries, 
press the ENTER key without any data. By entering 
“nothing” in this manner, the computer will be forced to 
move on to the next part of the program. It will go to retail 
and ask for those dollars from you. 

When you finish entering retail dollars, press ENTER 
with no data and the machine will leave that entry loop. Then 
it displays a summary of results, including total wholesale 
dollars, total number of wholesale entries, total retail dollars, 
total number of retail entries, grand total of all dollars and 
grand total of all entries. 

This program will rerun after results are displayed. 
Merely press any key on the computer keyboard to make the 
program start over. The program runs until you press the 
BREAK key to end. 

Program Listing 

10 CLSs CLEAR 

28 P R I NT B 4 9 , " DA I LY RE CE I FT 5 ADDE R " 

38 PR I NT a 89 , STR I NG $ ( 28 , 42 ) 

48 PRINT a 169, "WHOLESALE $"?: INPUT WH$ 
5@ IF WH$~ W " THEN PRINT 3 169 , SPACE* ( 3.1. ) 
2 GOTO 180 
60 WT=WT+1 
70 WD=WD + V AL < WHT } 

80 WH*= nB 

85 P R I N T a 180, SPACES < 1 9 > 

98 GOTO 48 

108 PRINT a 169, "RETAIL $"?: INPUT RL$ 

11© IF RL " THEM 168 

128 RT~RT *- 1 

130 RD-RD+VAL ( RLT ) 

140 RL$—" 11 

145 PRINT a 177, SPACE* ( 22 ) 

15© GOTO 100 
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160 CL 3 

170 R F: I NT WT 5 ” WHOLESALE ENT R I ES 
180 PRINT RTs “RETAIL ENTRIES 
1 8 5 P R I N T S T P I NG $<28*4 5 ) 

190 PRINT UT+RT5 "TOTAL ENTRIES 
5WD+RD 

288 PR I NT s PR I NTS PACES (1)5 ’’ PRESS 
MORE" 

210 IF I MKEYS- " " THEN 210 
228 GOTO IP 

Sample Run 

DAILY RECEIPTS ADDER 

* 4*. # * * * # * * * ********** 

WHOLESALE $? 123 

DAILY RECEIPTS ADDER 
******************** 

WHOLESALE $? 388 

DAILY RECEIPTS ADDER 
*■* ****************** 

WHOLESALE $? 

DAILY RECEIPTS ADDER 
******************** 

RETAIL $? 682 

DAILY RECEIPTS ADDER 
******************** 

RETAIL f? 

2 WHOLESALE ENTRIES * 521 
1 RETAIL ENTRIES $ 682 

3 TOTAL ENTRIES $ 1203 

PRESS M TO DO MORE 


$" ; i ID 
$" ? RD 

$" 

M TO DC 


DAILY RECEIPTS ADDER 
******************** 
WHOLESALE $? 
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Income Property 
Cash Flow Analysis 

Here’s a handy program to put your computer to work 
on your real estate investments. Potential gross income, 
effective gross income, net operating income, and gross 
spendable cash are the before-tax cash flows of interest. 

In computing these cash flows, one first finds the 
potential gross income by multiplying rent per unit you own 
times the number of units you own and that times the 
number of rental payment periods per year. The result will 
be the rental income you could expect if the property were 
fully occupied. 

Next, you must deduct an allowance for vacancies and 
rental losses which you will have. This usually is a percen- 
tage and the result will be your rent collections. These rent 
collections would be the same as your effective gross 
income if you have no other income. 

If you have other income, such as receipts from conces- 
sions like laundry equipment and other money produced by 
sources other than rental office space, add it in. The result 
will be effective gross income. 

Now deduct your operating expenses which are those 
expenditures you must make to keep the property capable 
of producing the gross income. The result will be the net 
operating income. 

Finally, deduct your annual debt service (interest) on 
the mortgage and you will find the gross spendable cash. 

With this program, you won’t have to do all of the math 
work yourself. Rather, the computer will ask you a few well- 
chosen questions and it will produce the answers you want 
immediately. 

For an example, see the SAMPLE RUN below. It repre- 
sents money you receive from an apartment building 
holding 60 apartments. Each apartment rents for $250 per 
month. Some 5 percent of the apartments are vacant on 
average. The owner pays $76,855 a year in operating costs. 
He has a $700,000 mortgage fully amortized in equal 
monthly payments for 20 years at 11.5 percent. 

Feeding these numbers into the computer, the results 
are $180,000 potential gross income; $9000 vacancy loss; 
$171,000 effective gross income; $94,145 net operating 
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income; $89,580.09 annual debt service; and $4564.91 gross 
spendable cash. 

Upon completion of a run and presentation of its results, 
the computer will await a press of any key on the keyboard 
to do another set. It will continue to run until you press the 
BREAK key to stop it. 

Program Listing 

10 CL.S5CL.EAR 

20 I NPUT " NO , UN I TS FOR RENT " 3 U 
30 INPUT" MONTHLY RENT PER UNIT $" ;R 
40 G=12*R*U 

50 INPUT "VACANCY RATE 7." ?V 
60 L=G*(.01*V) 

70 INPUT" OTHER INCOME $”501 
80 EG=G+0I-L 

90 INPUT” ANNUAL OPERATING COST $“ ?0C 
100 NI—EG—OC 

110 I NPUT "MORTGAGE ANNUAL DEBT SERVICE 
* " ; DS 

120 SC=NI-DS 


130 CLS 

140 PRINT "POTENTIAL GROSS INCOME $" ?G 
150 PRINT" VACANCY LOSS $“ ;L 

160 PR I NT "OTHER INCOME $"501 

170 PRINT" EFFECTIVE GROSS INCOME $" ?EG 
180 PRINT" NET OPERATING INCOME ?NI 

190 PRINT" MORTGAGE DEBT SERVICE $";DS 
200 PRINT "GROSS SPENDABLE CASH $";SC 
300 IF INKEY$=" " THEN 300 
310 GOTO 10 


Sample Run 

NO- UNITS FOR RENT? 60 

MONTHLY RENT PER UNIT $? 250 

VACANCY RATE "/.? 5 

OTHER INCOME $? 0 

ANNUAL OPERATING COST $? 76855 

MORTGAGE ANNUAL DEBT SERVICE $? 89580-09 
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POTENTIAL GROSS INCOME 
VACANCY LOSS 
OTHER INCOME 
EFFECTIVE GROSS INCOME 
MET OPERATING INCOME 
MORTGAGE DEBT SERVICE 
GROSS SPENDABLE CASH 


$ 180000 
$ 9000 
T 0 

T 171000 
$ 94145 
T 89580 , 09 
$ 4564.91 


Executive Decision Maker 

Ask the computer any question requiring a yes/no 
answer and you’ll get one of 10 possible replies from the 
machine. 

This short, easy-to-type program will give you new 
answers every time you press any key on the keyboard. The 
program will continue to run until you stop it by pressing the 
BREAK key. 

Program Listing 

I 0 CLS s CLEAR : RESTORE 

20 FO R L=i T 0 VAL < R I GHTT < T I MET , i)) + l 
s READ DT s NE X T L 

30 PR I NT 8 1 1 9+ < < 40-LEN ( D$ ) ) /2 ) , D$ 

40 IF INKEYT-" M THEN 48 ELSE 10 
50 DATA YES, FIRE SOMEONE, PASS THE BUCK, 
MAYBE , REORGAN I 2E , NO , SEE YOUR ANALYST , 
SIT ON IT, FORGET IT, NEVER MIND 


Temperature Converter 

Convert Celsius to Fahrenheit or Kelvin. Change 
Fahrenheit to Celsius or Kelvin. See Kelvin temperatures in 
Celsius or Fahrenheit degrees. This handy program makes 
the necessary conversions. 

At the start of a run, the program presents a menu from 
which you select the direction of the temperature conver- 
sion you need. The computer expects you will press either 
the F, C or K keys. No other key presses will be accepted. In 
fact, if you press any other key, the computer will tell you to 
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limit your commands to only the F, C or K keys. 

When you have made your menu selection, the com- 
puter will ask for the number of degrees in the information 
you have. It then will display that temperature in all three 
systems, Fahrenheit, Celsius and Kelvin. 

After the conversion is complete, press any key to do 
another conversion. The program will run until you press 
the BREAK key to stop it. 

Program Listing 

10 CLSs CLEAR 

20 PRINT S 49, "TEMPERATURE CONVERTER" 

30 LINE <52, 6)“< 180, 16) , 1 , B 
40 PRINT a 121, "PLEASE SELECT DIRECTION 
OF CONVERSIONS" 

58 PR I NT a 168," F RON FAHRENHE I T , PRESS F " 

68 PRINT a 208, ".FROM CELSIUS, PRESS C" 

70 PRINT a 248, "FROM KELVIN, PRESS K" 

88 KY$”INK£'Yf 

98 IF KY*=" " THEN 80 

100 IF KY*="F H THEN 280 

118 IF KY$“" C” THEN 300 

120 IF KY$-" K" THEN 400 

138 CL 5 

140 PRINT a 126," >>> PRESS ONLY F, C OR 
K < < < " 

150 GOTO 50 

200 FOR Z=121 TO 279 s PRINT CHR$<127>? 
s NEXT Z 

210 PRINT a 128, "FAHRENHEIT TEMPERATURE " ? 
: INPUT F 

220 C= < F-32 ) / 1 . 8 
230 K— < F+459 . 67 ) / 1 . 8 
240 GOTO 500 

380 FOR Z= 1 21 TO 279 ; PRINT CHR* < 1 27 ) ; 

: NEXT Z 

310 PRINT a 129, "CELSIUS TEMPERATURE 
: INPUT C 

328 F=1.8*C+32 
338 KaC+273.15 
340 GOTO 500 
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400 FOR Z = 1 2 1 TO 279 SPRINT CHR*<127>; 
".NEXT Z 

410 PRINT a 130," KELVIN TEMPERATURE 
: INPUT K 

420 F= 1 , 8*K— 459 . 67 
430 C=K-273„15 
500 CLS 

510 PRINT a 49, ” CONVERTED TEMPERATURE” 

520 LINE (52, 6 > ~ < 130, 16) , i,B 

530 PRINT 3 130, "FAHRENHEIT: " ;F;CHR$( 166) 

540 PR I NT 3 170, ” CELS I US s " ; C 5 CHR* C 1 66 ) 

550 PRINT a 210, "KELVIN: ” ;K ; CHR$ < 166 ) 

600 IF INKEY$-" " THEN 600 

61© GOTO 10 

Sample Run 

TEMPERATURE CONVERTER 

PLEASE SELECT DIRECTION OF CONVERSION". 
FROM FAHRENHEIT, PRESS F 
FROM CELSIUS, PRESS C 
FROM KELVIN, PRESS K 

FAHRENHEIT TEMPERATURE ? 32 

CONVERTED TEMPERATURE 

FAHRENHEIT: 32 * 

CELSIUS: 0 * 

KELVIN s 273.15 ° 

TEM PE RATURE CONVERTER 

PLEASE SELECT DIRECTION OF CONVERSION: 
FROM FAHRENHEIT, PRESS F 
FROM CELSIUS, PRESS C 
FROM KELVIN, PRESS K 

»> PRESS ONLY F, C OR K <<< 

FROM FAHRENHEIT, PRESS F 
FROM CELSIUS, PRESS C 
FROM KELVIN, PRESS K 

CELSIUS TEMPERATURE ? 0 
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CONVERTED TEMPERATURE 
FAHRENHEIT: 32 ° 

CELSIUS: 0 * 

KELVIN: 273.15 0 

TEMPERATURE CONVERTER 

PLEASE SELECT DIRECTION OF CONVERSIONS 
FROM FAHRENHEIT, PRESS F 
FROM CELSIUS, PRESS C 
FROM KELVIN, PRESS K 

KELVIN TEMPERATURE ? 273. 15 
CONVERTED TEMPERATURE 

FAHRENHEIT: 32 ° 

CELSIUS: 0 * 

KELVINS 273.15 * 

TEMPERATURE CONVERTER 

PLEASE SELECT DIRECTION OF CONVERSION: 
FROM FAHRENHEIT, PRESS F 
FROM CELSIUS, PRESS C 
FROM KELVIN, PRESS K 


Jogger Logger 

What a handy way to keep a record of your runs! And 
with the portable computer, you can take your machine 
right into the field with you for immediate comparisons to 
previous jogging outings. 

The program allows you to add new run records, review 
old records, erase all records. When you have completed a 
day’s run, simply turn on the computer, select this program, 
and press A for ADD NEW RUN RECORD at the first menu. 
The computer will ask you for the run date. The should reply 
in the 8-character MM/DD/YY format including the slash- 
bar (/) symbol. 

Next the computer will ask for the distance you ran. You 
should answer in up to three digits to a maximum of 999 
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miles. When the computer asks for the length of your run 
time, reply in minutes. 

For example, in our SAMPLE RUN below you’ll see that 
on December 31, 1985 we ran 4 miles in 24 minutes. 

If you wish to review your old records, select that option 
by pressing the R key at the program’s main menu. This will 
result in a display of your old records, one at a time. Press 
any key on the keyboard to call up the next record. 

If you want to erase your entire log, select that option 
by pressing E at the main menu. The computer won’t let you 
make a mistake easily since it repeatedly queries you to 
make sure you really do want to erase all of your records. 

When you are through using the program, select Q to 
quit, at the main menu. The run will stop. 

This program, as others in this book, calls forth many 
of the extra-powerful features of the Model 100 Portable 
Computer. For instance, you will use reverse printing on the 
LCD display panel. This is accomplished by establishing 
the reverse-on switch in RV$ in line 10 and the normal-on 
switch in NV$ in line 10. Printing RV$ before other letters 
causes them to be in reverse, as in line 100. Following the 
reverse printing by printing NV$ causes the display to be 
switched back to normal printing. For example, in line 100, 
we switch on reverse printing, then print the words 
JOGGER LOGGER, then switch off the reverse printing so 
the display is back to normal. 

The program prompts you to type in data by causing the 
computer to BEEP when information is needed. You can 
disable this BEEP by simply eliminating the entire line 
which has a BEEP command. Or, if you wish to keep the line 
while disabling the BEEP, add a REM or an apostrophe (’) 
between the line number and the BEEP command to turn 
the line into a REMark statement. REMs are ignored by the 
computer during a run so the BEEP will be disabled. 

Make sure the CAPS LOCK key is depressed to its on 
position when running the program. 

The program uses the powerful RAMfiles built into your 
computer’s memory, instead of external tapes or disks. As 
long as the memory backup battery is working property, 
your log will be held in RAMfile memory. You have the 
power, when running the program, to write to, read from, or 
erase those RAMfiles. The program gives adequate warning 
when you are in danger of erasing the files. 
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When entering the date of a new run, the trap in line 440 
prevents you from entering more or less than 8 characters. 

Program Listing 

10 CLS s CLEAR s RV$=CHR* < 27 > + " p " 

; NV$=CHR$ < 27 ) + " q " 

100 PRINT a 54, RV* ; "JOGGER LOGGER” 5 NV* 

1 10 LINE (83, 7)-< 161, 15) , 1 ,B 

120 PRINT a 125, "ADD NEW RUN RECORD” 

5 SPACED < 5)5" PRESS A " 

130 PRINT a .165, "REVIEW OLD RECORDS" 

5 SPACE* <5)5 " PRESS R" 

140 PRINT a 205, "ERASE ALL RECORDS" 

5 SPACE* < 6) 5 M PRESS E " 

1 5 0 P R I NT a 2 45 , " OU IT" 5 SPACE* ( 1 9 ) 

5 "PRESS Q" 

160 BEEP 
200 INKEY* 

21.0 IF' K*~” " THEN 200 
220 BEEP 

230 IF K*~ " A " THEN 400 

240 IF K*~" R" THEN 600 

250 IF K*~ "E" THEN 800 

260 IF K* s ="0 ! ' THEN 1100 

270 L I NE ( 8 3 , 7 ) - < 1 6 1 , 1 5 > , 2 , B 

280 PRINT S 50, " PRESS ONLY A, R OR 0" 

290 GOTO 200 
400 CLS 

4 1 0 PR I NT 3 5 1 , RV* 5 ” ADD NEW RUN RE CORD " 
5NV* 

420 L I NE < 65 ,7)- ( 173, 15) , 1,B 
430 PRINT a 120,” RUN DATE (MM/DD/YY ) “ 5 
s INPUT DT* 

448 IF LEN < DT* ) 08 THEN PRINT" PLEASE 
USE MM/DD/YY FORMAT” • PRINT 3 141 
, SPACE* (19 ) SGOTO 430 
445 BEEP 

458 PRINT 3 160, "DISTANCE RUN (UP TO 
999 MILES) " 5 s INPUT DS* 

455 BEEP 

460 PRINT a 200, "RUM TIME (IN MINUTES ) " 5 
s INPUT TM* 
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465 BEEP 

470 RF*=DT*+SPACE$ ( 4 ) +DS$+SPACE$ < 8 ) +TM$ 

500 OPEN "RAM: RUNS. DO" FOR APPEND AS 1 

510 PR INI# 1 1 RFT 

520 CLOSE# 1 

530 GOTO 10 

600 CLS 

610 PRINT a 5 1 , RV$ 5 " REVIEW OLD RECORDS" 

? NV$ 

620 L I NE ( 65 , 7 ) - < 1 73 , 1 5 ) , 1 , B 
700 ON ERROR GOTO 795 
705 OPEN "RAM: RUNS. DO" FOR INPUT AS 1 
710 P R I NT a 120, " DATE " ; SPA CE* ( 8 ) 5 " M I LES 
5 SPACED ( 4 ) ? " M I NUTES " 

720 INPUT#! , RF$ 

730 PRINT a 160, RF$ 

750 PRINT a 240, "PRESS ANY KEY TO 
CONTINUE" 

760 IF INKEY$~" " THEN 760 
765 BEEP 

770 PRINT a 1 60 , SPACED < 39 ) 

775 IF EOF (1) THEN 785 
780 GOTO 710 
785 CLOSE# 1 : CLS 

790 PRINT 8 120, "THERE ARE NO MORE 
RECORDS": FOR T=1 TO 1000: NEXT T 
: GOTO 10 

795 PRINT a 128, "THERE ARE NO OLD 
RECORDS" :FOR T=1 TO 1580 : NEXT T 

: GOTO 10 
800 CLS 

810 FOR L- 1 TO 4 

815 L INE ( 95 , 7 ) - (137, 15 ) , 1 , B 

820 PRINT a 56, RV$? "WARNING" 

825 FOR T=1 TO 250: NEXT T 

830 IF L<4 THEN CLS 

835 FOR T=1 TO 50: NEXT T 

840 BEEP 

845 NEXT L 

850 PRINT NVf 

860 PRINT a 123, "YOU WILL ERASE ALL OF 
YOUR RECORDS" 
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87© PRINT a 205,” TO ERASE ALL RECORDS 
PRESS E” 

88© PRINT 8 245," TO PREVENT ERAS I NS 
PRESS P” 

900 K$= INKEY* 

81© IF " " THEN 900 
915 BEEP 

82© IF 11 E" THEM 1000 
930 IF K$=" P" THEN 10 
940 GOTO 900 
1000 CL 3 

1010 LINE<95,7>-<137, 15), 1, B 
1020 PR I NT a 56 , RV$ ; " WARN I NS " 

1030 PRINT NV$ 

1040 PRINT 8 120, "ARE YOU SURE YOU WANT 
TO ERASE" 

1050 INPUT "YES OR NO "?Y m 
1055 BEER- 

1060 ON ERROR SOTO 1390 

1065 IF YN$-~ " YES " THEN KILL "RUNS. DO" 

" GOTO 13 

1370 IF YN$=” NO" THEN 10 
1 ©80 SOTO 1050 

1090 CLS SPRINT a 120," THERE WERE NO 

RECORDS TO ERASE" s FOR T=1 TO 1000 
s NEXT T x SOT 0 10 
1100 CLS 

1110 PRINT a 55, "END OF RUN" 


Sample Run 

JOSSER LOGGER 


ADD NEW RUN RECORD 
REVIEW OLD RECORDS 
ERASE ALL RECORDS 
QU I T 


PRESS A 
PRESS R 
PRESS E 
PRESS Q 


PRESS ONLY A, R OR Q 


ADD NEW RUN RECORD 
REVIEW OLD RECORDS 
ERASE ALL RECORDS 
QU I T 


PRESS A 
PRESS R 
PRESS E 
PRESS Q 
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ADD NEW RUN RECORD 


RUN DATE (MM/DD/YY)? 12/31/85 
DISTANCE RUN (UP TO 999 MILES)? 4 
RUN TIME (IN MINUTES)? 24 

REVIEW OLD RECORDS 

DATE MILES MINUTES 

12/31/85 4 24 

PRESS ANY KEY TO CONTINUE 

JOGGER LOGGER 

ADD NEW RUN RECORD 
REVIEW OLD RECORDS 
ERASE ALL RECORDS 
QU I T 

WARNING 

YOU WILL ERASE ALL OF YOUR RECORDS 

TO ERASE ALL RECORDS PRESS E 
TO PREVENT ERASING PRESS P 

WARNING 

ARE YOU SURE YOU WANT TO ERASE 
YES OR NO ? YES 


JOGGER LOGGER 

ADD NEW RUN RECORD PRESS A 
REVIEW OLD RECORDS PRESS R 
ERASE ALL RECORDS PRESS E 
QUIT PRESS 0 


END OF RUN 
Ok 


PRESS A 
PRESS R 
PRESS E 
PRESS Q 
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Dual-Time Universal Clock 

Here’s an exciting clock program that’s good anywhere 
in the USA at any time of the year because it takes time zone 
and standard times into account. It presents both local time 
and Universal time, on the LCD display panel, at the same 
time. And it runs endlessly until you press the BREAK key. 
Very convenient! 

When you first start a program run, the computer will 
display a menu asking for information on your time zone. 
You press E for eastern, C for central, M for mountain or P 
for pacific. 

Next, the computer asks whether you are on standard 
time or daylight savings time. Press S for standard or D for 
daylight savings. 

At that point the clock will start running, displaying 
your local time with proper label on the left and UTC univer- 
sal time on the right. 

Program Listing 

10 CL.S ! CLEAR s BE- 1 
20 GOSUB 90© 

3© PRINT a 126, "WHAT IS YOUR U„S„ TIME 
ZONE?" 

4© PRINT a 201, "EASTERN, PRESS E" 

5© PRINT a 223, "CENTRAL, PRESS C" 

60 PRINT a 241 , "MOUNTAIN, PRESS M" 

70 PRINT a 263, " PACIFIC, PRESS P" 

80 TZ*= INKEY* 

90 IF TZ$~ H " THEN 8© 

100 IF TZ$“"E" OR TZ*~" C” OR TZ$*"M H 
OR TZ*~ " P" THEN 120 
110 GOTO 80 
120 CLS 
130 GOSUB 900 

14© PRINT 8 122," ON STANDARD OR DAYLIGHT 
SAVINGS TIME?" 

150 PRINT a 21 1 , "STANDARD, PRESS S" 

160 PRINT 8 25.1 , "DAYLIGHT, PRESS D" 

17© DL*= INKEY* 

130 IF DL*~"" THEN 170 

190 IF DL*~" S" OR DL*“"D" THEM 21© 
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200 GOTO 170 
210 CLS s BP =2 
220 GO SUB 900 
230« GOSUB 800 

240 PRINT 3 1.70, TZ*+DL*+" T” 

250 PRINT 3 1 87 , " UTC” 

270 GOSUB 700 

280 NT* -ST R* < HR ) + R I GMT $ (TIME*, 6 ) 

290 IF LEN<STR*(HR> )<3 THEN NT*= B 0"+ 
RIGHT*(STR*(HR> , 1 ) +RIGHT* (TIME*, 6) 
300 PRINT 3 207, TIME* 

310 PRINT 3 225, NT* 

320 GOTO 270 
690 END 

700 HR=VAL < LEFT* < T I ME* , 2 > > +C 
710 IF HR >23 THEN HR=HR-24 
720 RETURN 

80S IF DL*“’ , S H THEN C“1 

810 IF TZ*=" E" THEN C=C+4 

820 IF TZ*~" C" THEN C=C+5 

830 IF TZ*“" M" THEN C=C+6 

840 IF TZ*“ " P " THEN C=C+7 

850 RETURN 

900 LINE(74,4)--( 164, IS) , 1,£ 

9 1 0 L I NE ( 75 , 5 ) - ( 1 63 , 1 7 ) , 1 , B 
920 IF BE" 1 THEN PRINT 3 53,” TIME 
CONVERTER” 

930 IF EB“2 THEN PRINT 3 53, ” UNI VERBAL 
TIME” 

940 RETURN 

Sample Run 

TIME CONVERTER 

WHAT IS YOUR U , S « TIME ZONE? 

EASTERN, PRESS E CENTRAL, PRESS C 

MOUNTAIN, PRESS M PACIFIC, PRESS P 

TIME CONVERTER 

ON STANDARD OR DAYLIGHT SAVINGS TIME? 

STANDARD, PRESS S 
DAYLIGHT, PRESS D 
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UNIVERSAL TINE 


EDT 

07 s 58 s 20 


UTC 

1 1 358320 


Bubble Sort 

This program sorts names, labels, words, letters into 
alphabetical order, A to Z. As written here it will accept up 
to 26 items, sort them, and print a list of those names hori- 
zontally across the screen in alphabetical order. Then it 
prints the list in original entry order for comparison. It 
shows that the items really were sorted and none were lost! 

You may type in a list of up to 26 items. If you type in 
fewer than 26, press ENTER without data to exit the entry 
loop and get on with sorting. 

After results are displayed, press any key to do a new 
set. The program runs continuously until you press the 
BREAK key to stop it. 

If you wish to change the number of names or items 
accepted, change the number 26 in lines 20, 30, 200, 230, 
and the number 25 in line 100. If you wish to remove the 
printing of the original order of entry from the program, 
delete lines 55, 230, 240, and 250. 

Program Listing 

10 CLS 3 CLEAR 

20 DIM M$ < 26 ) s DIM D$<26> 

30 FOR L= 1 TO 26 
40 INPUT "NAME” ?M$(L > 

50 IF M$ ( L. > = " " THEN 70 
55 D*<L)=rWL> 

60 NEXT L 
70 CLS 

80 PRINT” SORTING NOW” 

90 T=0 

100 FOR L=1 TO 25 

110 IF M$(LX=M$(L+1) THEN 160 

120 E$-M$ ( L ) 

130 M$ < L ) =M$ ( L+l ) 

140 M*<L+1 >=E$ 
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150 T=1 

160 NEXT L 

170 IF T=1 THEN 90 

180 CLS 

190 BEEP 

200 FOR L=I TO 26 

210 IF M$(L><>" " THEN PRINT M$<L)?" "? 

220 NEXT L 

225 PRINT 

230 FOR L=1 TO 26 

240 IF D$ ( L ) < > " " THEN PRINT D$<L>$" "5 
250 NEXT L 

300 IF INKEY$=" " THEN 300 
310 GOTO 10 

Sample Run 

NAHE? SMITH 
NAME? JONES 
NAME? ANDREWS 
NAME? LEWIS 
NAME? BROWN 
NAME? 

SORTING NOW 

ANDREWS BROWN JONES LEWIS SMITH 
SMITH JONES ANDREWS LEWIS BROWN 


Day Of The Year 

This program reports the number of the day of the year 
for any day you enter. 

See the menus in the SAMPLE RUN below. The pro- 
gram asks for the date, giving you the choice of today’s 
date by pressing T or some other date by pressing X. 

If you select today’s date, the program moves immedi- 
ately to computation and presentation of results. If you 
press X, it asks for that date and wants to receive it in the 
MM/DD/YYYY format. 

When a result is printed on the LCD display panel, press 
any key to do another. The program runs continuously until 
you stop it by pressing the BREAK key. 
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Program Listing 

10 CLEAR 
20 GO SUB 500 

40 PRINT 3 134, "SELECT ONE*" 

50 PRINT 3 168, "TODAY’S DATE < PRESS T ) 11 
60 PRINT a 208, "OTHER DATE < PRESS X ) ” 
70 KY*= INKEY* 

80 IF KY*="" THEN “0 

80 IF KY*~ ” T " THEM 200 

100 IF KY*= ” X " THEN 400 

110 PRINT 3 250," PRESS ONLY T OR X” 

120 GOTO 40 
200 B*=DATE* 

2 1 0 J—VAL. < LEFT* < D* , 2 ) ) 

220 K=UAL ( M I D* *: D* ,4,2)) 

230 IF K y *~ " T ” THEM I=VAL< " 19"+ < RIGHT* 
(D*, £) ) ) 

235 I F KY*-~- " X " THEM I =VAL < R I GHT* < D* ,4) > 
24® N=- 1 NT ( 305 5 * ( J + 2 ) / 1 00) -8 1 
250 L“0 

260 IF I ~4 * I NT < I / 4 ) THEN L* 1 

270 IF I* 100*1 NT( 1/100) THEN L«0 

280 IF I =400* I NT < 1/400) THEN L=i 

290 IF J > 2 THEN N=N-2+L 

300 N=N+K 

310 GOTO 600 

400 GOSUB 500 

410 PRINT 8 126, "TYPE IN DATE AS 
MM/DD/ YYYY" 

420 PRINT 8 172," "; 

430 INPUT D* 

440 GOTO 210 
500 CLS 

510 PR I NT a 5 1 , CHR* ( 27 ) + " p * ; " DAY OF THE 
YEAR" ; CHR* < 27 ) •+■" q " 

520 L I NE < 65 , 7 ) - ( 155 , 15 ) , 1 , B 
530 RETURN 
600 GOSUB 500 

610 PRINT a 129, "DAY" ;K$ "OF MONTH" ;J 
620 PRINT a 161," IS DAY NUMBER" ;N 
5" IN THE YEAR" ; I 
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630 PRINT a 245 , ” PRESS ANY KEY TO DO 
ANOTHER" 

640 IF INKEY$= M " THEN 640 
650 GOTO 10 

Sample Run 

DAY OF' THE YEAR 
SELECT ONE : 

TODAY’S DATE (PRESS T > 

OTHER DATE (PRESS X) 

DAY OF THE YEAR 

DAY H OF MONTH 8 
IS DAY NUMBER 224 IN THE YEAR 19S4 


T r M . 

T S 


PRESS ANY KEY TO DO ANOTHER 

DAY OF THE YEAR 
SELECT ONE s 

TODAY’S DATE (PRESS T) 

OTHER DATE (PRESS X) 

DAY OF THE YEAR 

TYPE IN DATE AS MM/DD/YYYY 
? 12/31/1984 
DAY OF THE YEAR 

DAY 31 OF MONTH 12 
DAY NUMBER 366 IN THE YEAR 1984 


PRESS ANY KEY TO DO ANOTHER 


Name ’N Note List 

Here’s a handy way to keep track of friends’ phone 
numbers or employees’ payroll numbers or family charge- 
account numbers. In fact, this list keeper will be useful any- 
where you have a list of pairs of data to be stored together. 

The program allows you to type in names and attach 
notes to those names. The names, with their attached notes, 
may be typed in, in any random order. The program auto- 
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matically arranges the names, with their attached notes, in 
alphabetical order. 

The program gives you the option of printing the list 
on the computer’s LCD display screen or on paper via a 
printer. Naturally, you must have an appropriate line printer 
or daisy-wheel printer attached to the computer to use the 
print-on-paper option. 

The notes could be telephone numbers, code numbers, 
your word comments, addresses, membership status, 
employee status, or anything else you might care to append 
to someone’s name on a list. Hold the length of the name 
down to 19 or fewer characters including letters, numbers, 
symbols and spaces. Similarly, hold the length of the note 
to 19 or fewer characters. 

As you run this program, note the interesting use of 
graphics to highlight the questions, then the sorting mes- 
sage, and the various messages from the computer as it 
displays results of its work. 

The program uses a bubble-sort routine to arrange the 
names in alphabetical order. The more names in the list, the 
longer time it will take to sort. As written here, the program 
accepts a maximum of 50 names, controlled by the number 
50 in lines 15, 20, 400 and 660 and the number 49 in line 200. 
You may change these numbers to alter the capacity for 
names. The program alone uses about 1200 bytes of 
memory. 

Program Listing 

10 CLS s CLEAR 

15 DIM M$ < 50 ) s DIM D$(50)sDIM Q$(50) 

20 FOR L=1 TO 50 
25 PRINT S 43, "TYPE NAME" ?Li 
30 LINE (16, 6 ) - < 223 , 16 ) , 1 , E 
35 INPUT mil.) 

50 IF G‘$ ( L > = " " THEN 90 
55 LINE ( 16, 6) -<223, 16) ,2, E 
60 PRINT a S3," TYPE NOTE" |L ; 

65 L I NE ( 1 6 , 6 ) - < 223 , 24 ) , 1,E 
70 INPUT D$(L) 

75 m ( L ) ( L ) + " " +D$ ( L ) 

S0 CLS 
85 NEXT L 

43 


90 CLS 

95 L I NE ( 75 , 22 > - < 1 45 , 32 ) , 1 , E 
100 LINE<74, 21 )-( 146,33) , 1,E 
105 PRINT a 133, "SORTING NOW” 

110 T-0 

200 FOR L= 1 TO 49 

210 IF m < L ) < ( L + 1 ) THEN 260 

220 E*=M$<L> 

230 < L ) =M$ ( L+l > 

240 M$ (L+l )=E$ 

250 T~ 1 

260 NEXT L 

270 IF T=1 THEN 110 

280 CLS 

290 BEEP 

300 CLS: PRINT 

310 PRINT” WHICH WAY DO YOU WANT THE 
LIST PRINTED?” 

315 PRINT 

320 PRINT "ON THE LCD DISPLAY PANEL 
< PRESS L ) " 

330 PR I NT "ON PAPER BY THE PRINTER 
(PRESS P>” 

340 INKEY* 

350 IF K$” " " THEN 340 

360 IF " L. " THEN CLS: GOTO 400 

370 IF K$~”P” THEN 600 

380 PRINT" PRESS ONLY L OR P" 

390 GOTO 340 
400 FOR 1=1 TO 50 

410 IF m ( L. ) < > " " THEN P R I NT m (L.) : P=P + 1 
420 IF P<6 THEN 460 

430 PRINT" >>> PRESS ANY KEY TO READ 
MORE<<< " 

440 IF INKEY$“" " THEN 440 
450 P“0 
460 NEXT L 
470 P : — 0 

500 PRINT "LIST END: PRESS M FOR MORE OR 

Q TO QUIT” 

510 K$"-INKEY$ 

520 IF m~" n THEN 510 
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53® IF K$“" M" THEN 3®0 
54® IF K*~"Q ,! THEN END 
55® GOTO 50© 

600 CL.S 

610 PRINT 3 88,” PLEASE CONNECT A PRINTER" 

620 L. I NE <46,1 4 ) - < 1 92 , 24 > , 1 , B 

63® PRINT a 171, "PRESS 0 WHEN DONE” 

64® KZ*= INKEY* 

650 IF K 2 $ < > " D " THEN 64® 

660 FOR L=1 TO 5© 

67 0 IF m ( L ) < > " " THEN L P R I NT M$ < L. > 

680 NEXT L 

690 CLS SPRINT: GOTO 500 

Sample Run 

TYPE NAME 1 ? 

TYPE NAME 1 ? EDWARD 

TYPE NOTE 1 ? 

TYPE NAME 1 ? EDWARD 

TYPE NOTE 1 ? <8®0) 555-1234 

TYPE NAME 2 ? 

TYPE NAME 2 ? JANE 

TYPE NAME 2 ? JANE 

TYPE NOTE 2 ? <900) 555-8765 

TYPE NAME 3 ? 

SORTING NOW 

WHICH WAY DO YOU WANT THE LIST PRINTED? 

ON THE LCD DISPLAY PANEL (PRESS L) 

ON PAPER BY THE PRINTER (PRESS P) 

WHICH WAY DO YOU WANT THE LIST PRINTED? 

ON THE LCD DISPLAY PANEL (PRESS L) 

ON PAPER BY THE PRINTER (PRESS P) 

PRESS ONLY L. OR P 

EDWARD (800) 555-1234 
JANE (900) 555-8765 

LIST ENDS PRESS M FOR MORE OR Q TO QUIT 
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WHICH WAY DO YOU WANT THE LIST PRINTED? 

ON THE LCD DISPLAY PANEL (PRESS L) 

ON PAPER BY THE PRINTER (PRESS P) 

PLEASE CONNECT A PRINTER 

PRESS D WHEN DONE 

EDWARD (800) 555™ 1234 
JANE (900) 555-8765 

LIST END: PRESS M FOR MORE OR Q TO QUIT 


Code Breaker 

This fancy encoding and decoding program allows you 
to write secret messages in code and decode secret mes- 
sages written in the same code. The use of a powerful code 
key format means only the largest computers in the world 
would have a chance at cracking your code and then only 
with great difficulty. For all intents and purposes, the code 
generated by this program is unbreakable. 

When you start a run of this program, the computer will 
ask whether you wish to encode or decode a message. Press 
E to encode a new message or D to decode an existing 
message. 

Next, type in a secret number as a code key which only 
you, and others you tell, will know. This number could be 
one previously specified or obtained by counting the 
number of words on a page or the number of pickets in a 
fence or some other fixed number of items. The person 
using this program to decipher your message must have 
access to the same code key number, one way or another. 

Any code key number is okay, however a larger number 
will take longer for the computer to assimilate. 

After you have typed in the code key number, the com- 
puter will ask you to type in a one-line message. For use on 
our small screen, we have suggested the message by only 
one line in length. Actually, it can be up to 255 characters 
long. The computer will display the message, letter by letter, 
as you type it in. 

When the message has been completely entered, press 
ENTER and the encoded (or decoded) message will be 
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displayed instantly on the screen. If you have encoded a 
new message, copy it off on paper and send it to a friend. If 
he has the same software in his computer and knowledge of 
the code key he will be able to type it into his computer and 
see it instantly decoded. 

The same sequence of events happens while decoding 
as during encoding. Just type in the message to be 
decoded, press ENTER, and you get an instant translation. 

The letter transpositions used in encoding rely on ran- 
dom numbers generated by the computer so the code key 
which controls the random-number generator is vital to 
being able to decipher someone else’s message. It would be 
extremely difficult, if not impossible, to unravel the letter 
transpositions without the code key. 

After you see and read a translated message, the 
display will hold until you press any key on the keyboard. 
Pressing any key then will make it go back to the start of the 
program where you will have the option of encoding or 
decoding a new message. The program runs endlessly until 
you press the BREAK key. 

Imagine taking this powerful encoding and decoding 
ability with you, anywhere in the world in your portable 
computer! 


Program Listing 

100 CLS: CLEAR 
110 DIM M$<255> 

120 GOSUB 700 

130 PRINT a» 122," WILL YOU ENCODE OR 
DECODE A MESSAGE?" 

140 PRINT 3 211, "TO ENCODE, PRESS E" 

150 PRINT a 251, "TO DECODE, PRESS B" 

160 KY$= INKEY* 

170 IF KY$“" " THEN 160 

180 IF KY$-"E" OR KY$="D" THEN 200 

190 GOTO 160 

200 CLS 

210 GOSUB 700 

220 IF KY$ = " E " THEN FS^’EN" 

230 IF KY$="D H THEM F*="DE" 

240 PRINT a 125," " ? 

250 PRINT" WHAT IS THE " ;F$ 5" CODING KEY"; 


260 INPUT S 

270 FOR L~ 1 TO S : N= I NT < 60*RND ( 1 > > * NEXT L. 

280 CL.S 

300 GO SUB 700 

310 PRINT a 127, "TYPE IN A ONE LINE 
MESSAGE " 

320 PRINT 
325 0= 1 
330 " 

340 K*=INKEY$ 

350 IF " THEN 340 

360 IF AS C ( ) = 1 3 THEN 410 
370 PRINT K$ ; 

380 M$ ( 0 ) =STR$ < AS C < K * > ) 

390 Q=Q+ 1 

400 GOTO 340 

410 IF KY "E" THEN 600 

500 PRINT 3 239," " S 

505 FOR L™ 1 TO 0-1 

5 1 0 Z=VAL ( m ( L } ) - I NT ( 60*RND < 1 ) ) 

520 IF Z <32 THEN Z=Z+5? 

530 PRINT CHR$<Z); 

540 NEXT L 

550 IF INKEY$“" ” THEN 550 

560 GOTO 100 

600 PRINT a 239," "1 

605 FOR L=1 TO 0-1 

6 1 0 Z=VAL < m < L ) ) + I NT < 60*RND ( 1 ) ? 

620 IF 2 >90 THEN 2=2-59 
630 PRINT CHR*<Z>5 
640 NEXT L. 

650 GOTO 550 

700. LINE ( 80 , 4 > - ( 158, 18) , 1,B 
710 LINE <81,5)-< 157, 17) , 1,B 
720 PRINT 3 54, "CODE BREAKER" 

730 PRINT 
740 RETURN 

Sample Run 

CODE BREAKER 


WILL YOU ENCODE OR DECODE A MESSAGE? 
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TO ENCODE n PRESS E 
TO DECODE, PRESS D 

CODE BREAKER 

WHAT IS THE ENCODING KEY? 37 
CODE BREAKER 

TYPE IN A ONE LINE MESSAGE 
THE QUICK BROWN FOX JUMPED OVER THE HIGH 

CODE BREAKER 

TYPE IN A ONE LINE MESSAGE 
THE QUICK BROWN FOX JUMPED OVER THE HIG 

iir * j/ay. , B4 S : pxqgflwdc s-/ /b~ < gns/gmn? 

CODE BREAKER 

WILL YOU ENCODE OR DECODE A MESSAGE? 

TO ENCODE, PRESS E 
TO DECODE, PRESS D 

CODE BREAKER 

WHAT IS THE DECODING KEY? 37 
CODE BREAKER 

TYPE IN A ONE LINE MESSAGE 
5 I I ’ *J/3% , B4S : 9XQGFLWDC S-//B- < GNS/GMN? 

CODE BREAKER 

TYPE IN A ONE LINE MESSAGE 
! 1 1 ' *J/a%, B4S s 9XQGFLWDC S-//B-- < GNS/GMN 
THE QUICK BROWN FOX JUMPED OVER THE HIGH 


Decimal-To-Binary 
Number Converter 

Type in any decimal number and see it immediately 
converted to binary format. After conversion, press any key 
to do a new conversion. The program runs endlessly until 
you press BREAK. 

Program Listing 

10 CLEAR 
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20 GOSUB 500 
30 PRINT 

40 INPUT '* DE C I MAL NUMBER" SN 
50 IF N<0 OR NOINT(N) THEN PRINT" NUMBER 
MUST BE A POSITIVE INTEGER" : GOTO 30 
60 x=N!N$- M " 

70 Q~ I NT ( X /2 ) : R= X -2*0 
80 N$~M I Of < " 0 1 " , R+ i , 1 ) +N$ 

90 IF O<>0 THEN X=QsGOTO 70 
300 PRINT" BINARY NUMBER "5 N$ 

310 PRINT 3 240, "PRESS ANY KEY TO DO 
ANOTHER" 

320 IF INKEY$~" " THEN 320 
330 GOTO 10 
490 END 
500 CLS 

5 1 0 P R I NT 3 43 , CHR* < 27 > + "p" ; " DE C I MAL TO 

BINARY NUMBER CONVERSION" ? CHR$ ( 27 > + " q " 
520 L. I ME <18, 7 > - < 227 , 1 5 ) , 1 , B 
530 RETURN 

Sample Run 

DECIMAL TO BINARY NUMBER CONVERSION 

DECIMAL NUMBER? 14 
BINARY NUMBER 1110 

PRESS ANY KEY TO DO ANOTHER 


Hour Clock 

Here’s an odd new kind of clock which tells you the hour 
at a glance. The program uses graphics to simulate a clock 
face on the computer screen, including the hour numbers of 
1 to 12. The current hour of the day is indicated by flashing 
the appropriate hour number. 

Upon the start of a run, the program will cause the 
computer to display the clock face and flash the hour con- 
tinuously until you press the BREAK key. The computer 
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constantly updates the hour display by checking TIME$ at 
program line 400. 

Program Listing 

10 CLS: CLEAR 

100 DATA 62,104,146,134,222 
1 1 0 DAT A 260 ,218,176,134, 96 , 58 , 20 
200 FOR L=1 TO 12 
210 READ P 

220 PRINT 3 P , CHR$ < 239 > 

230 FOR T~1 TO 100s NEXT T 
240 PRINT a P, L 
250 NEXT L 
300 RESTORE 

400 HR=VAL <LEFT$ < TIME$, 2 > ) 

410 FOR L= 1 TO HR 
420 READ P 
430 NEXT L 

440 PRINT a P , CHRS ( 239 > 

450 RESTORE 

460 FOR T=1 TO 100s NEXT T 
470 PRINT a P," " 

480 FOR T=1 TO 100: NEXT T 
500 GOTO 400 


Code Practice Oscillator 

T o learn Morse code you had to buy an oscillator and a 
key and get a friend who knew the code to sit down for a few 
hours to send dots and dashes to you. No more! 

Now you have a friend in your computer. It will send 
letters and numbers all day and all night, if you like, without 
break. In fact, this program runs continuously until you stop 
it with the BREAK key. 

CAI means computer-assisted instruction and this 
program is CAI at its finest. The program makes the com- 
puter generate the dots and dashes of the International 
Morse code so you can hear, see and learn that code. The 
computer will show very large-size dots and dashes on the 
screen and sound loud dits and dahs. 
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After displaying and sound off, the computer will ask 
what the character it showed was. It awaits your answer 

which you give by pressing the appropriate key on the key- 
board. If your answer is wrong, thecomputerwillsayso. If it 
is right, it will say so. Either way, it will say what the correct 
answer is. 

The speed and tone are fixed so you don’t have to worry 
about anything except learning to recognize the letters as 
they are sent to you by the computer. This is great for the 
beginner who needs to learn the International Morse code. 

After right or wrong, press any key to do another. 

Program Listing 

10 CLS 

20 FOR Q=1 TO VAL< RIGHT* (TIME* ,2) ) 
s RN= I NT < 37*RND < 1 ) > - NEX T Q\ 

3® IF RN< 1 THEN 20 
40 FOR L= 1 TO ( 1 1*RN) 

50 READ C 
60 NEXT L. 

70 PRINT 3 90 t " " ; 

100 FOR L«1 TO 11 
110 READ C 

120 IF C=2 THEN C*=CHR* < 239) +CHR* < 23?) 

+ CHR* < 239 ) : SOUND 2500 24 
1 30 I F C- 1 THEN C*~CHR* < 239 ) : SOUND 2500 - 8 
140 IF 0=0 THEN C*=CHR* ( 224 ) : SOUND 2500,0 
150 PRINT C* 5 
160 NEXT L 

200 PRINT 8 171," WHAT WAS THAT CHARACTER?" 
210 A*= INKEY* 

220 IF A*™ " " THEN 210 

230 IF A*=CHR*<C> THEN PRINT B 171," YES, ” 
; CHR* < C ) 5 ” IS CORRECT n 5 SPACE* ( 7 ) ELSE 

PRINT a 171," NO, IT WAS " ;CHR*(C) 

5 SPACE* ( 12) 

240 PRINT 
250 PRINT 

260 PRINT a 251," PRESS ANY KEY FOR 
ANOTHER" 

300 IF I NK E Y * = " " THEM 300 
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318 RESTORE 
320 GOTO 10 
500 END 

590 DATA 0,0,0,0,0,0,0,0,0,0,0 
600 DATA 1,0,2,0,0,0,0,0,0,0,65 
610 DiH 1 A 2,0, 1,0, 1,0, 1,0, 0,0, 66 
620 DATA 2,0,1,0,2,0,1,0,0,0,67 
630 DATA 2,0,1,0,1,0,0,0,0,0,68 
640 DATA 1,0,0,0,0,0,0,0,0,0,69 
650 DATA 1,0,1, 0, 2,0, 1 , 0, 0, 0, 70 
660 DATA 2,0,2 ,0, 1? 0,0, 0,0, 0,71 
670 DATA 1,0, 1,0, 1,0, 1,0, 0,0, 72 
680 DATA 1,0,1,0,0,0,0,0,8,0,73 
690 DATA 1,0,2,0,2,0,2,0,0,0,74 
700 DATA 2,0,1,0,2,0,0,0,0,0,75 
710 DATA 1,0,2,0,1,0,1,0,0,0,76 
720 DATA 2,0,2,0,0,0,0,0,0,0,77 
730 DATA 2,0,1,0,0,0,0,0,0,0,78 
740 DATA 2,0,2,0,2,8,8,0,0,0,79 
750 DATA 1,0,2,0,2,0,1,0,0,0,80 
760 DATA 2,0,2,0,1,0,2,0,0,0,81 
770 DATA 1,8,2,0,1,0,0,0,0,0,82 
/80 DATA 1,0,1,0,1,0,0,0,0,0,93 
798 DATA 2,0, 0,0, 0,0, 0,0,0,0,84 
880 DATA 1,0, 1,0,2,0,0,0,0,0,85 
810 DATA 1,0, 1,0, 1,0, 2, 0,0,0, 86 
820 DATA 1,0, 2, 0,2, 0,0, 0,0,0, 87 
83© DATA 2,0,1,0,1,0,2,0,0,0, 88 
84 0 DA TA 2,0, 1,0, 2, 0,2, 0,0,0, 89 
850 DATA 2,0,2,0,1,0,1,0,0,0,90 
S60 DATA 2 ,0,2, 0,2,0, 2 ,0,2,0, 48 
878 DATA 1,0,2,0,2,0,2,0,2,0,49 
888 DATA 1,0,1,0,2,0,2,0,2,0,50 
89© DATA 1,0, 1,0, 1,0,2,0,2,0,51 
900 DATA 1,0, 1,0, 1,0, 1,0,2,0,52 
910 DATA 1,0,1,0,1,0,1,0,1,0,53 
920 DATA 2,0,1,0,1,0,1,0,1,0,54 
930 DATA 2,0,2,0,1,0,1,8,1,0,55 
948 DATA 2,0,2,0,2,0,1,0,1,0,56 
95 0 DA TA 2,0, 2 ,8, 2, 0,2,0, 1,©,5 7 


Sample Run 


m m ms 

WHAT WAS THAT CHARACTER? 

■ m rshh 

NO, IT WAS U 

PRESS ANY KEY FOR ANOTHER 

m unis as 

WHAT WAS THAT CHARACTER? 

99 m m 99 

No , I 1 WAS R 

PRESS ANY KEY FOR ANOTHER 

a mm m m sum 

CORRECT- 

KEY FOR ANOTHER 


CORRECT 

KEY FOR ANOTHER 


CORRECT 

KEY FOR ANOTHER 

wmm mm mm m m 

NO, IT WAS 8 

PRESS ANY KEY FOR ANOTHER 

SUMS n Hi 

YES, D IS CORRECT- 

PRESS ANY KEY FOR ANOTHER 


YES, X IS 
PRESS ANY 

■ Mill 

YES, 5 IS 
PRESS ANY 

mm ffiUgnfi 

YES, W IS 
PRESS ANY 
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Random Number Tip 

Sometimes the “randomness” of the random numbers 
generated by the computer isn’t good enough. Here’s how 
to “reseed” the random number generator to get less-pre- 
dictable numbers. 

Lines 20 and 50 cause the random number always to be 
printed in the same place on the display. Line 40 causes the 
"reseeding” and generation of new and different sets of 
random numbers. 

When you run this program, the result will be the 
display of a random number. Press any key to display a new 
random number. The program runs until you press BREAK. 

Program Listing 

10 CLS 

20 PRINT a 130,” RANDOM NUMBERS" 

30 CLEAR 

40 FOR Z=1 TO VAL ( RIGHT* (TIME*, 2) ) 
s P= I NT < 1 00* RND U ) ) : NE X T Z 
50 PRINT a 145, P 
60 IF INKEY$=" " THEN 60 
70 GOTO 30 


Alarm Clock 

Here’s a handy way to turn yourcomputer into an alarm 
clock! It will await a previously-specified hour and then 
sound an alert. 

You set the alarm time. The computer constantly 
compares that time with the actual time on its internal clock 
and beeps when the alarm time is reached. 

When you start the program run, the computer will ask 
for the alarm time. You type it in the HH:MM:SS format. The 
computer gives you a chance to change your mind by 
asking if the time you just typed in is okay. Press Y for yes or 
N for no. 

After the alarm sounds, the computer asks if you wish to 
have the same alarm time tomorrow or set a new alarm time. 
Press S for the same time tomorrow or C to change the next 
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alarm time. Note that the computer uses a 24-hour clock so 
you can set the alarm to sound at the same time every day. 
The program runs until you press BREAK. 

Program Listing 

10 GOSUE 500 

20 PRINT a 1 60i " TYPE ALARM TIME IN THIS 
FORMAT " ; CHRS ( 1 5 4 ) 5 " 12:1 2 : 1 2 ” 

30 INPUT ATS 
40 GOSUE 500 

50 PRINT 3 120i “IS THIS CORRECT? " 

;chr$< 154) ; " " ;ATS 
60 YN$= INPUTS < 1 ) 

70 IF YNS="Y" THEN 100 

80 IF THEN 10 

90 GOTO 60 

100 GOSUE 500 

110 PRINT a 133, TIMES 

120 IF ATS-TIMES THEN 200 

130 GOTO 110 

200 FOR L-l TO 10 

210 FOR P-500 TO 10 STEP -50 

220 SOUND P, 1 

230 NEXT P 

240 FOR P=10 TO 500 STEP 50 

250 SOUND P,1 

260 NEXT P 

270 NEXT L 

280 GOSUE 500 

290 PRINT 3 127, TIMES 5" ” 5 DAYS ? M DATES 
300 PRINT a 200," SAME TIME TOMORROW OR 
CHANGE THE TIME?" 

340 PRINT" PRESS S (SAME) OR C (CHANGE)" 

350 SCS= INKEYS 

360 IF SCS="" THEN 350 

370 IF SCS="S" THEN 100 

3S0 IF SCS="€" THEN 10 

390 GOTO 350 

400 END 

500 CLS 

510 L. I NE ( 68 , 6 ) - < 1 40 , 1 6 ) , 1 , E 
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520 PRINT a 52, " ALARM CLOCK" 

530 RETURN 

Sample Run 

ALARM CLOCK 

TYPE ALARM TIME IN THIS FORMAT 12:12:12 
? 07:30:00 

ALARM CLOCK 

IS THIS CORRECT? 07:30:00 

ALARM CLOCK 

08:25:13 Sun 04/10/83 

SAME TIME TOMORROW OR CHANGE THE TIME? 
PRESS S (SAME) OR C ( CHANGE > 


Radio Frequency & Wavelength 

Let your computer convert frequency to wavelength 
and wavelength to frequency. Upon running this program, 
press F to compute frequency or W to compute wavelength. 
After conversion press M to do more. The program will run 
continuously until you press the BREAK key. 

Program Listing 

10 CLS: CLEAR 
20 G05UB 800 

30 PRINT 8 125, "CONFUTE FREQUENCY" 

: SPACES < 4 > ? " PRESS F" 

40 PRINT 3 165, " COMPUTE WAVELENGTH" 

; SPACES <3 >;•• PRESS W" 

50 INKEY $ 

60 IF K$=" " THEN 50 

70 IF K$="W" THEN 200 

80 IF K$- " F" THEN 500 

90 PRINT 3 250, "PRESS ONLY F OR W" 

100 GOTO 50 
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220 

230 


260 


510 

520 

530 


820 


a,j0 


CLSiGOSUE 800 

PRINT a 1 25 i "FREQUENCY (MHz)” 

; SPACES (4) ? J INPUT F 
14-300 /F 

PR I NT S 1 65 , F * " MHz = " ! N ; ” METERS " 
PRINT a 245, ” PRESS M FOR MORE" 

IF I NKEY$- " " THEN 250 
GOTO 10 
CLS'-GOSUB 800 

P R I NT 8 1 25 , " WAVELENGTH ( METE RS ) !t 
? SPACES < 1 ) ” s INPUT W 
F =300/0 

PRINT a 165, w; "METERS =" ?F 5 "MHz " 
GOTO 240 

L. I ME ( 24 , 2 ) ~ ( 202 , 20 ) , 1 , BF 
L I NE < 28 , 6 > - < 1 98 , 1 6 ) , 2 , BF 
PRINT 3 45, "RADIO FREQUENCY & 
WAVELENGTH" 

RETURN 


Program Listing 

radio FREQUENCY &. WAVELENGTH 

COMPUTE FREQUENCY PRESS F 

COMPUTE WAVELENGTH PRESS W 

R A D 1 0 F R E Gi U E N * Y 8c W A v E. L. E N G T H 

WAVELENGTH < METERS ) ? 21 
21 METERS = 14.285714285714 MHz 


PRESS M FOR MORE 

RADIO FREQUENCY l. I 

C 0 M F U T E FRE Q U E N C Y 
C 0 H P U TEW A V E L E N G T H 


WAVELENGTH 

PRESS F 
I PRESS W 


PRESS ONLY F OR W 
RADIO FREQUENCY & WAVELENGTH 

FREQUENCY (MHz) ? 151 
151 MHz = 1.9867549668874 ME 


M FOR MORE 


How Money Grows 

My, oh my, how your money grows when you put it in 
a savings account at a certain annual percentage rate of 
interest, compounded monthly, for a number of months. 

This program asks for information on the initial princi- 
pal saved, annual interest percentage rate, and number of 
months. The result is a moving display of the changes in 
principal as the months pass. The computer holds at the 
final month’s display so you can see what you would have 
at that time. 

Lines 40 to 60 take in the data. Lines 70 to 120 do the 
computation and display results. You can change the length 
of time of the pause in scrolling by changing the number 250 
in the time-delay loop in line 110. 

Break the hold at the end of a run and start over by 
pressing any key. The program will run until you press 
BREAK to stop it. 

Program Listing 

10 CL 3 : CLEAR 

20 PRINT a 53, "MONEY GROWTH” 

30 LINE <76,6>-<!50,165,i,B 
40 P R I NT : I N P U 7 " PR I N C I PAL. $ 

50 INPUT” ANNUAL INTEREST PERCENT " ; R 

60 INPUT "NUMBER OF MONTHS •’ 5M 

65 PRINT 

73 FOR <j>~- i TO M 

SO 1 = < p * ( 0. 01 -*R > > / 1 2 

90 p-F'4-I 

95 1- 1 NT < P * 1 00+0 . 5 ) / 1 0© 

100 PRINT "AFTER MONTH " ; Q ? " * 

110 F 0 R T “ 1 T O 2 5 0 s NE X T T 
120 NEXT O 

130 IF INKEY*-:"” THEM 130 
140 GOTO 10 

Sample Run 

MONEY GROWTH 

PRINCIPAL * ? 1000 

ANNUAL. INTEREST PERCENT ? 8 
NUMBER OF MONTHS ? 6 
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AFTER 

MONTH 

1 

= $ 

1 006 . 67 

AFTER 

MONTH 

4iL 

- $ 

1013,38 

AFTER 

MONTH 

3 

= $ 

1020, 13 

AFTER 

MONTH 

4 

= $ 

1026, 93 

AFTER 

MONTH 

5 

= $ 

1033,78 

AFTER 

MONTH 

4 

u) 

— $ 

1040, 67 


Deposit Doubler 

There’s an old rule of thumb used by some bankers. It 
holds that money left on deposit in an interest-bearing 
account will double in value as interest compounds. 

If you don’t take this Rule of 72nds too seriously it can 
be a handy gauge to figure roughly the number of years you 
need to leave your money in a bank account (or other 
interest-bearing system) to see it double in value. 

The rule holds that the number of years to double is 
about equal to the number 72 divided by the annual interest 
rate. The actual conversion is done in line 130 of this 
program. The rest of the program lines are input and output 
generators. 

Program Listing 


\ 0 3 " CLE AR 

20 RvS=t:HR$ < 27 ) + I! P » 5 NV*=CHR* < 27 )+ ,, q" 

30 PR I NT a 55, RV$ ' ” DEPOS I T DOUBLE R M ? NO $ 

A© LINE<90,7>-<179, 15), 1,E 
5© LINE < 83 , 5 ) - < 1 81 , 1 7 ) , 1 , E 
100 PRINT 3 1 20 * ” WHAT IS ANNUAL INTEREST 
PERCENT" , s INPUT I 
110 PRINT & 120, SPACES < 40 ) 

120 PRINT 8 120," AT " ; I ? " PERCENT INTEREST" 


130 ¥”72/ I 

140 IF Y> I NT ( V ) THEN 150 ELSE 180 
150 D—Y-INT < Y ) 

160 IF D > 0 , 5 THEN Y=Y+1 
17© Y=INT<Y) 

1S0 PRINT a 160, "MONEY DOUBLES IN ABOUT " 


« \i 
1 * 


« II 

n 


jL 0 © 


YEARS" 

PRINT a 240," PRESS 


RV$ ? "ENTER" \ NV$ 


60 


« H 
* 

FOR MORE OR ” ; RVT ? ” 

Q " 5 NV$ » " TO 

205 

L_ I NE < 35 , 47 } - < 65 , 55 ) 

, 1 ,B 

207 

L I NE (143,47) ~ < 1 4? , 55 ) , 1 , B 

2 1 0 

K*-INKEY$ 


220 

IF K$~" " THEN 210 


230 

IF K$= " Q" OR 

THEM 300 

240 

IF ASC < K$ ) = 1 3 THEN 

10 

250 

GOTO 210 


300 

CL... S' 


310 

LINE (77, 1 ) -(155, 21 

) , 1 , BF 

320 

LINE <81,5)-<151, 17 

),2,BF 

338 

P R I N T a 5 4 , " T E R M I N A T I ON " 

340 

END 



Sample Run 


DEPOSIT DOUBLER 

WHAT IS ANNUAL INTEREST PERCENT? 15 

DEPOSIT DOUBLER 

AT 15 PERCENT INTEREST 

MONEY DOUBLES IN ABOUT 5 YEARS 

PRESS ENTER FOR MORE OR Q TO QUIT 


Mortgage Loans 

Planning to buy a new home? Thinking of refinancing 
the old mortgage? This program computes either mortgage 
paymentamount, numberof payments oramount borrowed. 

When you first run this program, you are presented with 
a menu of work options. If you wish to find the amount of 
payment on a certain mortgage, press P. If you wish to com- 
pute the n urn ber of payments to complete a mortgage, press 
N. To recall the original loan amount of an existing mort- 
gage, press V. 

If you wish to determine the monthly mortgage pay- 
ment, the computer will ask for the original loan amount in 
dollars, the percentage interest rate, and the number of 
months in the life of the mortgage. 

To find number of payments, the computer will require 


61 


the original loan amount, the interest rate, and the monthly 
payment amount. To recreate the original amount of a 
mortgage, tell the computer payment, interest rate and 
number of months in the original agreement. 

After each computation and presentation of results, the 
computer is ready to do another. Press any key on the key- 
board to start over. Or press BREAK to quit. 

Program Listing 

10 CLSs CLEAR 

20 TT$“ " MORTGAGE LOANS" 

30 GOSUB S00 

40 PRINT 3 127," WHICH DO YOU WISH TO FIND?" 
50 PRINT a 163, "MORTGAGE PAYMENT AMOUNT 
(PRESS P>" 

60 PRINT a 203, "NUMBER OF PAYMENTS 
(PRESS N)" 

70 PRINT a 243, "ORIGINAL LOAN AMOUNT 
(PRESS V)” 

80 K*— INKEY* 

90 IF K*=" " THEN 80 
100 IF K*= " P" THEN 200 
110 IF K*="N" THEN 400 
120 IF K$~" V" THEN 600 
130 CLSs BEEP 

140 PRINT 3 89, "PRESS ONLY P, N, OR V" 

150 GOTO 50 

200 TT$=" MORTGAGE PAYMENT" 

210 GOSUB 800 
220 PRINT 

230 INPUT” ORIGINAL LOAN AMOUNT *" ;V 
240 INPUT" INTEREST RATE PERCENT " 5 1 
250 LET 1=0, 01*< 1/12) 

260 INPUT "NUMBER OF MONTHS " ?N 

270 PRINT 

280 P= V * ( I / < 1 - <1 + I > A -N ) ) 

290 P= I NT ( 1 00* P+0 . 5 > / 1 00 

300 PR I NT " MORTGAGE PAYMENT $ " ? P 5 " < < < " 

310 PRINT 

320 PRINT "FOR MORE PRESS ANY KEY" 

330 K*« INKEY* 
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THEN 330 


340 IF K$~ ,! " 

350 GOTO 10 
400 TT$=" NUMBER OF PAYMENTS” 

410 GOSUB 800 
420 PRINT 

430 INPUT "ORIGINAL LOAN AMOUNT *" SV 
440 INPUT” INTEREST RATE PERCENT */.''? I 
450 I=0.01*<I/12> 

460 INPUT "MORTGAGE PAYMENT AMOUNT $"?P 
470 PRINT 

480 N=- < ( LOG <1-1 *V/ P > ) / < LOG < 1 + 1 ) ) ) 

500 PR I NT” NUMBER OF MONTHS 0 ;N ?"<<<" 
510 GOTO 310 

600 TT$=" MORTGAGE LOAN AMOUNT" 

610 GOSUB 800 
620 PRINT 

630 INPUT" MORTGAGE PAYMENT AMOUNT $" ;P 
640 INPUT" INTEREST RATE PERCENT 7." 5 1 
650 1=0. 01*< 1/12) 

660 INPUT "NUMBER OF MONTHS " ?N 

670 PRINT 

680 V=P*< < i-< 1+1 ) A -N> /I ) 

690 V= I NT < 1 00* V+0 ■ 5 ) / 1 00 

700 PR I NT "LOAN AMOUNT *" 

; v ; " < < < " 

710 GOTO 310 
790 END 
800 CLS s BEEP 
810 TL=LEN(TT$) 

820 CT= I NT ( < 40-TL ) /2 ) 

830 BL=TL*6+4 
840 BS= < 240-BL ) / 2 
850 LINE<BS,6)-<BS+EL~2, 16), 1,B 
860 PRINT a 40+CT , TT$ 

870 RETURN 

Sample Run 

MORTGAGE LOANS 
WHICH DO YOU WISH TO FIND? 
MORTGAGE PAYMENT AMOUNT (PRESS P) 
NUMBER OF PAYMENTS (PRESS N) 

ORIGINAL LOAN AMOUNT (PRESS V) 
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MORTGAGE PAYMENT 


ORIGINAL LOAN AMOUNT $? 79500 
INTEREST RATE PERCENT ? 9.75 
NUMBER OF MONTHS ? 360 


ORIGINAL LOAN AMOUNT *7 79500 
INTEREST RATE PERCENT ? 9-75 
NUMBER OF MONTHS ? 360 

MORTGAGE PAYMENT $ 683.03 <« 

FOR MORE PRESS ANY KEY 


Installment Purchase Plan 

What can be more confusing than the terms on your 
credit card? It can be a real hassle trying to get a payment 
figure from a store or loan company or bank for an install- 
ment purchase. With this program, you won’t have to call or 
visit a lender to discover just how much your payment is 
going to be. 

The computer will tell you how much you will have to 
pay on your installment-credit loan if you give it a few pieces 
of pertinent information. 

Type the program listing below into yourcomputerand 
RUN it. The computer will ask for the list price of the item 
you are buying. It will ask for the amount of the down pay- 
ment you will be making at the time of the purchase. It will 
ask over how many payments you wish the loan spread. 
And, finally, it will ask for the annual interest rate percen- 
tage of the loan. 

After completing its work the computer will tell you the 
amount of the monthly payment you will have to make on 
the loan. Then it will wait to do another set of numbers. To 
do more, press any key on the keyboard. To quit, press the 
BREAK key. 

Program Listing 

10 CL 3 3 CLEAR 

20 LINE <26,3)-<201, 19) , 1,BF 
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30 L. I ME ( 29 < 6 ) - < 1 98 , 1 6 ) , 2 , BF 

50 PRINT 3 45, " INSTALLMENT PURCHASE 
PAYMENT " 

60 PR I NT - PR I NT ” L I ST PR I CE $ " % SPACED < 9 > ? 

• INPUT L 

70 PR I NT " DOWN PAYMENT $ " ; SPACE $ <7)3 
s INPUT D 

80 PR I NT" NUMBER OF PAYMENTS" ? SPACED <3)3 
s INPUT N 

90 PRINT" ANNUAL INPUT PERCENT” 3 SPACE* < 1 ) 3 
; INPUT I 

100 I=<0.01*I)/12 

i I 0 P~ < L -D ) * < I / < 3. - t 1 / < < 1 4 I ) - N ) ) ) ) 

1 2 0 P « I N T < 1 0 0 * P +0.5 ) / 1 00 

130 PRINT 

20 0 P R I N T "PA Y ME N T " ? S P A C E $ < 1 4 ) ?"$'*? P 

230 IF INKEY*=" " THEN 210 

220 GOTO 10 


Sample Run 


I N STALL ME N T PU R CH A BE PA YMEN T 


LIST PRICE $ ? 10000 

DOWN PAYMENT •$ ? 2500 

NUMBER OF PAYMENTS ? 48 

ANNUAL. INPUT PERCENT ? 12 


LIST PRICE $ ? 10000 

DOWN PAYMENT $ 7 2500 

NUMBER OF PAYMENTS ? 48 

ANNUAL INPUT PERCENT ? 12 


PAYMENT 


% 3 97 . 5 


Rule of 78’s 
Loan Interest Rebate 

Paying off your consumer loan? Want to know if you are 
due a refund on interest and how much it will be? This pro- 


gram will allow the computer to compute the amount of 
interest you could overpay and the remaining balance of 
principal you must pay to satisfy the loan. 

If you pay off the loan by paying all pre-computed pay- 
ments, use this program to find how much refund, or rebate, 
is due you. If you haven’t paid off the loan yet, use this pro- 
gram to determine the amount of principal to pay off with- 
out overpaying interest. 

Using what bankers call the Rule of 78’s, you must 
supply the number of the current payment, the total number 
of installment payments for which the loan originally was 
written, and the original total finance charge or amount of 
interest dollars. 

See the SAMPLE RUN below. As you can see, the 
computer will ask for the necessary information and then 
provide the answer you want. When the computation and 
final presentation of results has been made, the computer 
stands by, awaiting yourordertodoanotherset of numbers. 
You accomplish this by pressing any key on the computer’s 
keyboard. Or you may press BREAK to end the run. 

Program Listing 

10 CLSs CLEAR 

100 INPUT" ORIGINAL NO. OF MONTHS IN LOAM" 
; N 

105 IF N= < 0 THEN 100 

110 INPUT "PAYMENT NO. WHEN PREPAYMENT 
OCCURS” ;K 

115 IF K>N OR K~<0 THEN 110 
120 INPUT "ORIGINAL TOTAL FINANCE CHARGE 
$ " 5 P 

125 IF P=<0 THEN 120 

130 INPUT "MONTHLY PAYMENT S PM 

135 IF PM™ <0 THEN 130 

200 I~ < ( 2* ( N--K+ 1 > ) / ( N* ( N+ 1 ) ) ) *P 

210 RE=< <N-K)*I >/2 

220 EL” ( < N~K ) * PM ) -RE 

230 1 1 ~ I NT (1*1 00+0 . 5 ) / 1 00 

240 R“ I NT ( RB* 1 00+0 . 5 ) / 1 00 

25 0 B” I NT ( EL* 1 00+0 . 5 ) / .1 00 

300 CL 3 
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350 

360 

3T0 

600 

410 


PR I NT” RULE OF 78’ s LOAN INTEREST 
REBATE” 

PRINT 

P R I NT " OR I G I NAL F I NAN CE CHARGE $ " ; P 
PRINT” ORIGINAL NO. PAYMENTS " 5 N 

PRINT” PREPAYMENT MONTH NO. " ?K 

PR I NT ” REBATE DUE * " ? R 

P R I NT " PR I N C I P AL OUTST AND I NG $ " ? B 
IF INKEY$=" " THEN 40© 

GOTO 1© 


Sample Run 


ORIGINAL NO. OF MONTHS IN LOAN? 48 
PAYMENT NO. WHEN PREPAYMENT OCCURS? 24 
ORIGINAL TOTAL FINANCE CHARGE $? 1000 
MONTHLY PAYMENT $? 750 


RULE OF 78 7 s LOAN INTEREST REBATE 

ORIGINAL FINANCE CHARGE $ 100© 

ORIGINAL NO. PAYMENTS 48 

PREPAYMENT MONTH NO. 24 

REBATE DUE $ 255.1 

PRINCIPAL OUTSTANDING $ 17744.9 


ORIGINAL NO. OF MONTHS IN LOAN? 24 
PAYMENT NO. WHEN PREPAYMENT OCCURS? 18 
ORIGINAL TOTAL FINANCE CHARGE $? 100 
MONTHLY PAYMENT $? 50 


RULE OF 78 7 s LOAN INTEREST REBATE 
ORIGINAL FINANCE CHARGE $ 100 


ORIGINAL NO. PAYMENTS 24 

PREPAYMENT MONTH NO. 18 

REBATE DUE $ 7 

PRINCIPAL OUTSTANDING $ 293 
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Chinese Zodiac 

The most-famous oriental Zodiac calendar is divided 
into twelve-year groups. Each year has a different animal 
sign. The sign under which a person is born is believed to 
determine the circumstances of his life and the kind of 
person he is. 

The animals are rat, ox, tiger, rabbit, dragon, snake, 
horse, sheep, monkey, cock, dog and boar. 

Run this program. When asked by the computer, type 
in the year of your birth. Thecomputerwill determine which 
animal sign corresponds to your birth year and present you 
with information concerning your own circumstances. 

The computer names the animal, descibes your person- 
ality traits, tells which other animal signs are compatible 
with your own, and tells which animal signs are your 
opposite, or least compatible. 

This fun game runs endlessly. After presenting infor- 
mation, it awaits the press of any keyboard key to start over. 
Press BREAK to stop. 

Program Listing 


10 

CLE 

A F s GO S' 

UB 


900 






20 

pc 1 

a V 

: NT 5 I NPI 

t 

UT 

!! 

IN WHA 

T YEAR 


WEF 

IE YOL 

I BO 

30 

x$~ 

p 

= RIGHT* 

( Y 


\ .A- ) 






40 

H-\, 

YM i X $ ) 









50 

IF 

CN/ 12) = 

~ I 

NT < i i / i 2 

5 THEM 

! 

200 

i 


60 

IF 

< < N 1 ) 

/ 1 


) - 1 NT < 

< N- 3 ) / 

1 

2) 

THEN 

250 

70 

IF 

< ( N~2 ) 

/ 1 

7i 

3 = I NT < 

< N-2 ) / 

1 

2) 

THEN 

300 

80 

IF 

< (N-3) . 

/ i 

-Y 

; - 1 NT < 

( N-3 ) / 

i 

/ 

THEN 

350 

r-v /«» 

"/© 

IF 

< (N~4> 

/ 1 

i— 

) - I NT < 

i N — A ,) / 

1 

- \ 

1 htN 

400 


4 

00 

IF 

i 

< N--5 ) / 

1 2 ) 

— 

I. NT ( 

( IM--5 

) 

/ 

3. 


) 

THEN 

450 

i 

10 

IF 

{ 

(IF- 6) / 

12) 

— 

I NT ( 

(N--6 

) 

/ 

/ 

3. 


) 

THEM 

500 

1 

-■ I7t 
'*./ 

IF 

< 

\ 

( M-7 ) / 

1 2 ) 


I NT < 

( N-7 

} 

/ 

A 

1 

■*T r 

4. 

% 

3 

THEN 

550 

i 

A. 

30 

IF 

t 

< N-8 ) / 

1 2 ) 

— 

I NT < 

( N-8 

) 

/ 

j 

1 

o 

>4 

N 

/ 

THEN 

600 

I 

40 

IF 

( ( 

N-9 ) / 1 

•4h< } 

T 

i 

NT < s 

N-9 ) 

/ 

t 

1 


) 


rHEN 

650 

1 

50 

IF 

t 

( N- 1 0 > 

/ i 2 

\ 

-I NT 

< ( N- 

1 

0 

) 

/ 

1, 

Z) TH 

EN 700 

1 

60 

I F 

i' 

(N-i 1 } 

/ 1 2 

) 

f— 

ii 

< < M- 

3 

1 

) 

/ 

i:; 

d) TH 

EN 750 

•! 

L 

f7t 

r ViJ 
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TO 

10 












4 

00 

FR 

IN 

— j 

3> 

tfr 

•3* 

RAT 

n 











i 0 

PF 

IN 

T B$ ; M 

AMB 

T 

i 

T I OU 
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J 

N 

c 

F 
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220 

PRINT 

C$? 

" dragon , 

, MONKEY" 

230 

PRINT 

Of ; 

” HORSE" 


240 

GOTO i 

300 



250 

PRINT- 

A$ n 

;i O X " 


260 

PRINT 

5 

"A LEADER, BRIGHT , CHEERFUL” 

278 

PRINT 

C$5 

" SNAKE , 

COCK” 

230 

PR INI- 


"SHEEP" 


290 

GO TO 

800 



300 

PRINT- 

A$ % 

"TIGER" 


31© 

PRINT 

m s 

"SENS IT 

I ME, COURAGEOUS" 

320 

PRINT 

C$? 

" HORSE , 

DOG" 

330 

PRINT- 

m; 

"MONKEY 

I! 

340 

GO TO 

300 




35 0 PR I N T A$ ; " RAEE I T " 

360 PR I NT B$ ? " TALENTED , AFFECT I ONA T'E " 
370 PRINT €$$ "SHEEP, BOAR” 

3S0 PRINT D$ ’ " COCK " 

390 GOTO 308 

400 PRINT A$ ? !l DR AGON " 

410 PR I NT m ; " ROBUST , PASS I ONATE " 

420 P R I NT C$ ? " MONKEY , RAT *’ 

430 PRINT D$; "DOG" 

4 4 0 G 0 TO 8 □ 0 

45 0 P R I NT A$ ? ” SNAKE " 

460 PRINT £$;" INTENSE, WITH WISDOM” 

470 P R I N T C$ ? ” 0 X , CO CK ” 

480 PRINT D$ 5 " BOAR" 

490 GOTO 800 

500 PRINT A$ 5 "HORSE" 

510 PR I NT B$ n " ATTRAC T IVE , POPULAR " 

520 PRINT C$ 5 " TIGER i DOG" 

530 PRINT D$ ; ” RAT " 

540 GOTO 800 

550 PRINT A$ 5 " SHEEP" 

560 PRINT B$ 5 "STYLISH, PRIVATE” 

570 PRINT C* 5" BOAR, RABBIT” 

580 PRINT D45"OX" 

590 GOTO 800 

600 P R I NT A$ ; " MONKEY " 

610 PRINT "PERSUASIVE, INTELLIGENT” 
620 P R I NT C $ ”, " D R A GON , RAT” 

630 PRINT D$ ; "TIGER" 
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640 

650 

660 

670 


690 

700 

71.0 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 


GOTO 300 
PRINT A$ ? " COCK" 

P R I NT B$ ; 51 A P I OMEE R , SEEK I NG T RUTH 
P R I NT 0$ $ " SNAKE , 0 X " 

PRINT D$ ; “RABBIT" 

GOTO 800 
PRINT A $5” DOG" 

P R I NT E$ 3 " GENE ROUS , LO YAL ,! 

PR I NT C$ ? " HORSE , T I GER " 

PRINT D$ ? " DRAGON " 

GOTO 800 
PRINT A$ « " EOAR" 

P R I NT m ? ” GAL ANT , NOBLE " 

P R I NT 0$ 3 " RAB E I T , SHEE P " 

PRINT mV' SNAKE” 

GOTO 300 

PRINT SPRINT” FOR MORE PRESS ANY KEY” 
IF INKEY$~” " THEN 818 
GOTO 1 0 


890 END 
980 CLS 
910 LINE 
920 LINE 


( 159, 19) , i,BF 


940 

950 

960 

970 


L I NE < 70 , 6 ) - < 1 5 6 , 1 6 ) , 2 , EF 
PR I NT 3 52 1 " CH I NESE ZOD I AC " 
A$=” THE YEAR OF THE “ 

B$~ " YOU ARE " 

C $ -- 15 COMPATIBLE WITH ” 

D$=” OPPOSITE OF " 

RETURN 


Piano 

Here’s how to turn your computer into a simple piano 
and create some musical fun! 

As written, this program causes the computer to play 
the notes, C,D,E,F,G,A, and B. And the computer displays 
the letter played on the screen. 

The computer responds to your action in pressing 
either the C,D,E,F,G,A, or B letter keys on the keyboard. 
Press Q to turn off the piano and end the run. 
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For instance, if you press the letter C key, at line 130 in 
the program that action is translated into a number 1174 
which is stored in memory P. At line 210, the computer re- 
trieves the number 1174 from memory P and makes the 
sound it associates with that number. Lines 130 through 190 
allow the computer to know whether you have pressed C, D, 
E, F, G, A, or B and to store the appropriate number in 
memory P. 

You may cause the computer to store other numbers in 
memory P and, thus, make different sounds as you play the 
piano. Here’s a handy chart of notes and octaves associated 
with specific numbers. 



The duration or length of the note can be changed by 
changing the number 5 In line 210. 


Program Listing 

10 CLS s CLEAR 

20 R$=CHR$ < 27 ) + " p ” s N$=CHR« < 27 ) + " q ” 
30 PRINT 8 57, R$; "PI ANO " ; m 
40 LINE* 101, 7)- <131, 15), i,E 
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5© L. I ME ( 99,5 ) ~ ( i 33 , 1 7 ) , 1 , B 
6© L I ME (97,3) - (135, 19), 1 , B 
70 PRINT a 124, " PRESS KEYS TO PLAY 
THESE NOTES : " 

3© FRINT a 173, " C D E F G A £" 

9© L I ME <113,47)-(119,55>,1, E 
100 K$=" " 

110 K$~INKEY$ 


120 

IF 

K$-" " 

THEN 

1 3.0 


130 

IF 

K$= " C" 

THEN 

P=1 1 74 : GOTC 

:> 210 

140 

IF 

K*= “ D " 

THEN 

P~ 1 046 s GOTC 

) 210 

150 

IF 

K$-"E" 

THEN 

P-932 s GOTO 

210 

160 

IF 

K$~ " F " 

THEN 

P--879 s GOTO 

21© 

170 

IF 

K$“ ,! G" 

THEN 

P=783 s GOTO 

210 

130 

IF 

K$~" A" 

THEN 

P-698 s GOTO 

210 

190 

195 

IF 

IF 

K$~" E" 
K$~ n Q“ 

THEN 

THEN 

P—622 " GOTO 
300 

2 1 0 


200 GOTO 110 

210 SOUND P,5 

22© PRINT a 259,R$;K $;N$ 

230 GOTO 110 


30 © 

310 

320 

330 


PRINT a 1 20, SPACE* < 40) 

PRINT a 1 60, SPACE* < 4®> 

LI NEC 1 13, 47) -C 1 19,55) 

PRINT a 203, "YOU HAVE JUST TURNED 
OFF THE PIANO" 


■op 


Secret Letter 

Guess-the-number games can be great fun but they’re 
old-hat in the world of personal computers. So we’ve come 
up with something that captures that old fun and adds a 
more challenging, more exciting play. This is the guess-the- 
secret-letter game. 

The computer ponders a moment, then thinks of a 
letter. It knows that secret letter but it doesn’t let you know. 
Your job is to figure it out. 

It starts by displaying the full alphabet of 26 letters on 
its screen. You make a guess by pressing a letter key. No 
need to press ENTER. 

The computer responds with a CORRECT or WRONG 
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message. If wrong, it displays the entire alphabet again but 
this time without the letter or letters you have chosen pre- 
viously. By the way, the tricky part is in having the computer 
come back and display the entire alphabet without the 
chosen letter or letters. This is accomplished in the sub- 
routine in lines 700 to 810. 

You will note there is a processing delay of 5 or 6 
seconds so the computer sends out a wait message. 

The computer uses its random-number generator to 
select the mystery letter. This is done by selecting an ASCI I 
number from 65 to 90, in the subroutine at lines 500 to 520. 
Number 65 corresponds to the letter A and 90 to letter Z. 

In playing the game, you make your selection by press- 
ing a letter key, anywhere from A through Z. No need to 
press ENTER. 

The computer keeps track of your number of attempts 
and tells you, after each try, how many incorrect guesses 
you have made. If you make a correct guess, the computer 
will tell you how many tries it took to get it right. 

It provides an interesting afternoon’s diversion, con- 
suming many hours of fun. The game plays continuously 
until you press the BREAK key. 

It uses 681 bytes of Model 100 memory. Only a power- 
ful computer with an extensive BASIC vocabulary, such as 
the Model 100, could do all this! 

Program Listing 

10 CL3 s CLEAR 
20 DIM N ( 26 )iV( 26 ) 

30 GOSUE 500 
40 GOTO 160 
50 GOSUB 700 
60 GOSUB 600 

70 PR I NT " GUESS THE LETTER” 

80 GOSUB 600 

90 PRINT " PRINT E* SPRINT 

100 LET G*= INKEY* 

110 IF G*=” !1 THEN 100 
120 CLS i LET T=T+ 1 
130 LET N ( T ) -ASC ( ) 

140 IF ASC ( G$ ) =P THEN 300 

150 PRINT s PR I NT " WRONG " ; T ; " T I HES " 
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i 60 PR I NT : PR I NT " PLEASE STANDBY ” 

170 PRINT” PROCESSING WILL TAKE 6 SECONDS” 

180 GOTO 50 

300 PRINT” CORRECT” 

310 PRINT CHRT ( P ) ? ” IS THE LETTER” 

320 PRINT- 

400 PRINT” YOU GOT IT IN ";T?" TRIES” 

410 PRINT- 

420 CLEARS GOTO 20 

430 END 

500 FOR W = l TO UAL < R I GHTT < T I MET , 2 ) ) 

: P= I NT < 9 1 *RND < 1 ) ) : NE X T W 
510 IF P<65 THEN 508 
520 RETURN 
680 FOR Q- 1 TO 16 
610 PRINT 
620 NEXT Q 
630 PRINT 
648 RETURN 
700 LET ET=" ” 

710 FOR 0=1 TO 26 

720 IF N ( Q ) =0 THEN V(0)=0+ 64 

730 FOR 1 ~ 1 TO 26 

740 IF V ( Q ) ~N ( Z ) THEN V(O)=0 

750 NEXT 2 

760 LET B$=B*+ CHRT < V < 0 ) ) 

770 NEXT Q 
780 PRINT- 

790 PRINT” THANK YOU FOR WAITING" 

800 PRINT- 
810 RETURN 


Shell Game 

Hey, Man! Here’s a great new game which can only be 
played on a powerful computer such as yours. 

The dark squares on the display screen are cups. Under 
one is a letter P, representing a pea. But which cup covers 
the pea? You guess by pressing the appropriate number 
key, either 1 , 2 or 3. No need to press ENTER. The computer 
shuffles its cups after each guess. 
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Upon first starting this program, the computer will dis- 
play a menu asking you to select an option. Press R to read 
the rules. Press P to play the game. Press Q to quit or end the 
game. You can return to the main menu at any time by press- 
ing the ESCape key. 

The number of right and wrong guesses is shown on the 
screen. See how much you can win in 10 minutes of play. 
Then see how much your friends can win in the same length 
of time. Or you can compete by number of games played. Or 
play solitaire by yourself. The object is to locate the pea! It 
may or may not move after each guess, depending upon the 
secret decision of the computer. Go for it! 


Program Listing 


10 CL.S s CLEAR 

20 RV*=CHR* < 27 ) + " p" : NV*=CHR* < 27 ) + " q " 

1 00 PR I NT a 55 i RV* ; " SHELL GAME " $ NV* 
110 LINE<89,7)-< 149, 15) , 1 ,B 
120 LINE<87,5)-( 151, 175 , 1,B 
1 30 PRINT 3 130," TO PLAY " ? SPACE* < 5 ) 

5 11 PRESS P" 

140 PRINT a 1 70 , ” FOR RULES" ? SPACE* < 3 ) 


5 "PRESS R" 


1 4 5 PRINT 3 210, " TO QU IT" 5 SPACE* <5 ) 


5 “PRESS 0” 

150 K*= INKEY* 

160 IF K*=" " THEN 150 
170 IF K*= " P " THEN 200 
130 IF K*-~" R" THEN 1100 
185 IF K*= " 0 " THEN 1300 
190 GOTO 150 

200 PRINT a 130, SPACE*< 19) SPRINT a 17© 

, SPACE* (19) s PRINT a 210, SPACE* (19 ) 
210 PRINT a 13®, " 1“ SPRINT a 140, "2" 
SPRINT 3 150," 3" 

220 GOSUE 900 
300 K*'~ INKEY* 

310 IF K*-~" " THEN 300 

315 IF ASC ( K* ) =27 THEN 10 

320 IF VAL < K * ) < 1 OR VAL<K*>>4 THEN 300 

330 GOSUB 1000 
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340 GO SUB 500 

350 ON X GOSUB 800,700,600 

360 FOR T=1 TO 500 s NEXT T 

400 IF VAL ( K$ ) = X THEN R=R+i:GOTO 420 

410 W=W+.t 

420 P R I NT a 40 , R ? " R I GHT " 

430 PR I NT 3 71, W ; " WRONG " 

440 GOTO 220 

500 FOR 0=1 TO VAL ( R I GHT$ ( T I ME$ , 2 ) ) 

5 X=INT < 4*RND ( 1 ) ) s NEXT Q 
510 IF X<1 THEN 500 
520 RETURN 

600 L I NE < 55 , 37 ) - ( 69 , 50 ) , 1 , BF 
610 LINE < 1 15 , 37 ) - ( 129, 50 ) , 1 , BF 
620 L. I NE ( 1 75 , 37 ) - ( 1 89 , 50 ) , 1 , B 
630 PRINT a 230, "P" 

640 RETURN 

700 L I NE < 55 , 37 ) - ( 69 , 50 ) , 1 , BF 
710 LINE ( 1 15, 37) -< 129,50) , 1,E 
720 L I NE < 1 75 , 37 ) - ( 1 89 , 50 ) , 1 , BF 
730 PRINT a 220, " P" 

740 RETURN 

880 LINE <55, 37) -(69,50) , 1,B 
810 LINE < 115, 37)- < 129, 50) , 1 , BF 
820 L I NE <175, 37 ) - < 1 89 , 50 ) , 1 , BF 
830 PRINT a 210, ”P" 

840 RETURN 

900 LINE <55,37)- <69, 50), 1 , BF 
910 LINEC 115, 37) -<129, 50), 1 , BF 
920 L I NE < 1 75 , 37 ) - <1 89 , 50 ) , 1 , BF 
930 RETURN 

1000 LINE < 55 , 37 ) — (69, 50) , 2, BF 
1010 L I NE ( 1 1 5 , 37 ) - < 129,50) ,2, BF 
1 020 L INE < 1 75 , 37 ) - < 1 89 , 50 ) , 2 , BF 
1030 RETURN 
1100 CLS 

1110 P R I NT 3 56 , RV$ ? " RULES " ? NV$ 

1120 L. I NE < 95 , 7 ) ~ < 125, 15), 1,B 
1130 LINE <93, 5)-< 127, 17) , 1,B 
1140 PRINT: PR I NT "A 7 PEA 7 IS UNDER ONE 
CUP? WHICH: NUMBER 1, 2 OR 3? THE 
COMPUTER SHUFFLES CUPS” 
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1150 PRINT "AFTER EACH GUESS. TO GUESS? 
PRESS NUMBER OF CUP. " 5 SPACE* < 9 ) 

; " ( NOW PRE SS ANY KEY ) " 

1160 IF INKEY*”" " THEN 1160 
1170 PRINT a 120, SPACE* < 156) 

1180 PRINT a 1 20, " COMPUTER SHOWS NUMBER 

OF RIGHT GUESSES & WRONG GUESSES, " 

1190 PRINT” TO END THE GAME ANYTIME, 

PRESS ESCape KEY . " 5 SPACE* ( 3 > 5 " < NOW 
PRESS ANY KEY)- 


1200 

IF INKEY 

’*=" " 

THEN i: 

im 

1 2 1 0 

CLS ^ GOTO 

i 100 




1300 

CLS 





1 3 1 0 

PRINT S 

55, RV 

*; " 

END 

OF GAME 

1320 

L I NE < 89 ? 

7 >-U 

55? 

15), 

. 1 , B 

1338 

LINE (87, 

5 > - < 1 

57? 

17) , 

, i,B 

1340 

END 






Backward Writer 

Type in a message of up to 85 characters in response to 
the computer’s request. The computer will turn your mes- 
sage around and print it backwards on the LCD display 
panel. 

The 85 characters includes letters, numbers, symbols 
and spaces. You may use any combination. For a test, try it 
with the 26 letters of the alphabet as we have done in our 
SAMPLE RUN below. Type Z to A in backwards order. You 
will be amazed at the speed with which your computer turns 
it around! 

Program Listing 

10 CLS: CLEAR 

20 INPUT" TYPE A MESSAGE OF UP TO 85 
CHARACTERS " ?A$ 

30 IF A*=" " THEN 20 
40 L=LEN(A*> 

50 FOR J=L TO 1 STEP -1 
60 B*=E*+M I D* < A* , J , 1 > 

70 NEXT J 
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80 CLS 
90 FRINT m 

100 IF INKEY$-~” ” THEN 100 
110 GOTO 10 

Sample Run 

TYPE A MESSAGE OF UP TO 85 CHARACTERS ? 
AE- CDEFGH I JKLMNOPQRSTUVW X YZ 

Z Y X WVU T S R 0 PONML..K J I HGFEDCBA 


High Ball 

No excitement at the office water cooler? Bored in 
study hall? Nothing to do on a rainy Saturday at home? 
Here’s a fast game of Highball in which the highest-scoring 
player wins. 

The game is built for five players. You type in the first 
name, or initials or other identifying label, for each of the 
five players. The computer draws straws and randomly 
assigns numbers to each player. It sorts to find which player 
has the highest number and declares that player the winner. 

The number of players is controlled by the FOR/NEXT 
loop in lines 1 05 to 1 80. Change the number 5 at the end of 
line 105 to change the number of players. 

This is an ideal bit of speedy entertainment. The game 
runs endlessly until you press BREAK to stop it. 

Program Listing 

10 CLS s CLEAR s RV$-CHR$ ( 27 ) +" p" :NV*=CHR* 

< 27 ) + » q " 

20 DIM P*<5),S<5> 

30 PRINT a 56, RUT; "HIGH BALL” ;NV$ 

40 L I NE ( 95 , 7 ) - ( 149, 15) , 1,P 
50 LINE<93,5>~( 151, 17), 1,B 
100 PRINT a 1:22, " TYPE IN FIRST NAMES OF 
FIVE. PLAYERS" 

105 FOR L=i TO 5 

110 PRINT a 203," PLAYER NUMBER " 5 L ? 

115 INPUT PS CL.) 

120 PRINT 8 219, SPACES (20) 
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130 

140 

150 


160 

170 

180 

190 

200 

210 


IF r L.EIM < P* ( L > ) >12 THEN PRINT S 243, 
"NAME TOO LONG, TRY AGAIN” 5 GOTO 110 
PR I NT a 243 , SPACE* < 30 ) 

FOR Q= 1 TO VAL ( R I GHT $ ( T I ME* , 2 ) ) 

• S ( L > = I NT < 1 00* RND ( 1 ) ) : NE X T Q 
IF L=.t THEN H-S ( L ) 

IF S < L > >H THEN H=S(L) 

NEXT L 
CLS SPRINT 
FOR L~ 1 TO 5 

IF S ( L ) -H THEN PRINT S<L>,P*(L> 


230 

240 

250 

270 


i ” < WINNER" 

IF S ( L ) OH THEN PRINT S(L),P*(L) 
NEXT L 

PRINT" PRESS ANY KEY TO PLAY AGAIN” 
IF INKEY* 35 " " THEM 250 
GOTO 10 


Remarkable Person 

This is a fun program to impress your friends with the 
speed and “intelligence” of your computer. It is a great de- 
monstrator of computer graphics as shown on the com- 
puter’s display. Note the reverse box! 

Press any key on the keyboard to do a new name. Press 
BREAK to end the run. 

Program Listing 

10 CLS s CLEAR 

30 INPUT " WHAT IS YOUR FIRST NAME" SFN* 

40 INPUT "WHAT IS YOUR LAST NAME ” ? LN* 
50 IF FN$=" " OR LN*”" " THEN 10 
60 CLS 

70 LF-LEN ( FN* ) s LS--LEN ( L.N* ) 

80 BF= < 2 1 -™LF-~LS ) / 2 
90 BS=BF 

100 IF I NT ( ( LF+LS ) / 2 ) < > < LF +LS ) / 2 THEN 
BS=BS—1 

110 IF 21 -LF-LS< 1 THEN PRINT "NAME TOO 
LONG" ,, "GIVE ME A SHORTER ONE" 

: GOTO 30 
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120 BF$ -SPACED ( EF > 

130 BS$=SPA€E$<BS> 

1 40 RV$=CHR$ ( 27 ) + ■ p : NV$=CHR$ ( 27 ) + " q " 

150 LINE(59, 15)“< 185,40) , 1 ,B 
1 60 L I NE ( 57 , 1 3 ) - < 1 87 , 42 ) , 1 , B 
170 PRINT a 90,RV*5BF$;FN$5" - ;ln$ ;bs* ?nv* 
180 PRINT a 1 30, RV$ " IS 

; NV$ 

190 PRINT 8 170,RV*;" A REMARKABLE PERSON 

" ;nv$ 

200 IF INKEY$=" " THEN 200 
210 GOTO 10 


Computer Guesses 
Your Secret Number 

Wow! Everybody has heard of the high/low game in 
which a computer selects a secret number and you try to 
guess it. But, what if you think up the secret number and the 
computer tries to guess it? 

When you run this program, think of a secret number 
from one to 63. The computer will ask some easy questions 
and then guess your secret number every time! 

To ask its questions, the computer displays sets of 
various numbers. It does this six times. Each time you tell 
it nothing more than whether or not your secret number is in 
the set of numbers shown on the display. You tell it this 
simply by pressing Y for yes or N for no. 

After its sixth query, it will correctly tell you what the 
mystery number was. Naturally, you can’t change the 
mystery number after the start of the game and you must 
tell the computer truthful answers to each of the six 
questions. 

At the start of a RUN, the computer will ask for your 
name. You give it and then read an opening explanation bill- 
board on the display screen. Then press ENTER to start. At 
completion of a game, press ENTER to play a new game. 
The program runs on endlessly until you stop it by pressing 
the BREAK key. 
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Program Listing 

10 CLS: CLEAR 

20 INPUT" WHAT IS YOUR NAME" ;N$ 

30 PR I NT " OKAY THINK OF A NUMBER" 
40 PR I NT "FROM 1 TO 63" 

45 INPUT" PRESS ENTER TO START" 

50 CLS 
55 S=0 

60 FOR J=i TO 6 
70 T=1 
75 PRINT; 

80 FOR K=1 TO 32 
90 READ A 

100 IF A < 1 0 THEN PRINT A;" " ; SGOTO 120 

110 PRINT A;" " ; 

120 IF K=S*T THEN PRINT; :T=T+1 
130 NEXT K 

140 print m; " , " ? 

150 INPUT" IS YOUR NUMBER HERE" ; R$ 

160 IF LEFTS < R*, 1 >=“Y" THEN S«S+2 A <J-1) 
170 IF LEFT $ ( R$ , 1 ) < > " Y " AND LEFT$(R$,1> 

< > " N " THEN 150 
175 CLS 
1S0 R$=" " 

190 NEXT J 

200 PRINT 3 90, "YOUR NUMBER IS" ;S 
210 PRINT 3 164," " ; s INPUT "TO PLAY 
AGAIN, PRESS ENTER" 5 P$ 

220 RESTORE 
230 GOTO 10 

300 DATA 1,3, 5, 7, 9, 11, 13, 15, 17, 19,21, 23 
, 25 , 27 ,29,31,33,35, 37 

310 DATA 39,41,43,45,47,49,51,53,55,57 
,59,61,63 

320 DATA 2,3,6,7,10,11,14,15,18,19,22 
i 23 i 26, 27 , 30 , 3 1 , 34 , 35 , 38 
330 DATA 39,42,43,46,47,50,51,54,55,58 
,59,62,63 

340 DATA 4,5,6,7,12,13,14,15,20,21,22 
, 23,28, 29,30, 31 , 36,37, 38 
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350 

360 


370 


380 


390 

400 


DAT A 38 , 44 , 45 , 46 , 47 1 5.i' , 53 , 5*+ , 55 , 60 
i 61 1 62 , 63 

DATA 8,9, 10, 11, 12, 13, 14, 15,24,25,26 
,27,28,29,30,31,40,41,42,43,44,45 
,4^,47,56,57,58,59, 60 ,61, 62 , 63 
DATA 16, 17, 18, 19,20,21,22,23,24,25 

, 26,27,28, 29,30,31, 48, 49 

DATA 50,51,52,53,54,55,56,57,58,59 

, 60 ,61, 62 , 63 

DATA 32, 33, 34,35 , 36, 37, 38, 39,40,41 
, 4j!^‘, ‘‘+3, 44, 45, *+6, ■*+ / , 48, 49 
DATA 50,51,52,53,54,55,56,57,58,59 
, 60 ,61, 62 , 63 


Sample Run 

WHAT IS YOUR NAME? HELEN 
OKAY, HELEN, THINK OF A NUMBER 
FROM 1 TO 63 
PRESS ENTER TO START? 


1 

3 

5 

7 

9 

11 

13 

15 

17 

19 

21 


25 

27 

29 

31 

33 

35 

37 

39 

41 

43 

45 

47 

49 

51 

53 

55 

57 

59 

61 

63 

HELEN, 

IS 

YOUR 

NUMBER 

! HERE? Y 



■u 

3 

6 

f 

10 

1 1 

14 

15 

lb 

19 

iXm Jm 

23 


27 

30 

31 

34 

35 

38 

39 

42 

43 

46 

47 

50 

51 

54 

55 

58 

59 

£3 

63 

HELEN, 

IS 

YOUR 

NUMBER 

: HERE? Y 



32 

~x~z 

w w 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

43 

49 

50 

51 

52 

53 

54 

55 

56 


53 

59 

60 

61 

62 

63 

HELEN, 

IS 

YOUR 

NUMBER HERE? N 





YOUR 

NUMBER 

IS 

11 
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Draw Sketches 

Create your own computer art! This program allows 
you to draw sketches directly on the display panel. 

When you start a RUN, you will be presented with a 
menu offering a choice of instructions or drawing. Press I to 
read the instructions or D to draw. If I is pressed, you will 
find that drawing starts at the center of the display. 

Press the U letter key to move the dot up. Press D to 
move down. Press L to move left and R to move right. Press 
Q anytime to quit drawing. 

You may choose to draw either at the initial menu or 
after reading the instructions. At the initial menu, press D 
to draw. If you read instructions first, then press ENTER to 
set the dot at the center of the screen. After you hear five 
beeps, start drawing. Pressing Q at anytime causes the RUN 
to end. When the run ends you will leave BASIC and go back 
out to the Model 100 main program-directory menu. 

Program Listing 

10 CL 3 

20 PRINT a 133^ "DRAW A SKETCH" 

30 PRINT a 21 1," TO DRAW PRESS D" 

4© PR I NT a 24 6 , " I NST RU CT I CMS P RE SS I " 

50 KA$ = I NKEYf 

60 IF KA*-"" THEM 50 

70 IF KA$= D " THEN 100 

80 IF KA*="I M THEN 500 

90 GOTO 50 

100 CLS 

110 FOR L=1 TO 5 

120 LINE < 1 18, 30) -(122, 34 ) , 1 , EF 

130 FOR T=1 TO 50; NEXT T 

140 CLS 

150 BEEP 

160 FOR T- 1 TO 50 s NEXT T 
170 NEXT L 
180 X=120SY=32 
19© GOTO 300 
200 KB$=INKEY* 

21© IF KB$~" " THEN 200 
22© IF KE$- ,! 0" THEN MENU 
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L-H C4 <1,4 CiJ l\> K> K> !\J K> |-.j 


230 IF KR$= ” U" THEN Y=y-~ 1 
235 IF Y<0 THEN Y=0 
240 IF KBT~ " D" THEM Y=Y+1 
245 IF Y>63 THEN Y=63 
50 IF KE$~" L ” THEN X=X-1 
55 IF X<0 THEM X=0 
60 IF KB$~” R ,! THEN X = X + 1 
65 IF X>239 THEN X=23? 

70 IF KB$~ ” U ” OR KB$™ " D " OR KB$~ " L !! OR 
KE$="R” THEM 300 
30 GOTO 200 
00 PSET ( X , Y ) 

10 KE$~" " 

20 GOTO 200 
00 CLS 

510 PRINT TAB < 12) ? " INSTRUCTIONS” 

520 PRINT” 1) DRAWING STARTS AT SCREEN 
CENTER" 

530 PRINT ”2) PRESS U TO MOVE DOT UP, 

D TO MOVE" 

540 PRINT" DOWN, L TO MOVE LEFT, R 
MOVE RIGHT" 

550 PRINT" 3) PRESS 0 ANYTIME TO QUIT 
DRAWING” 

5 6 0 P R I N T 8 248, ” NOW PRESS E N TER T 0 D R A W " 
570 KC*= INKEY* 

580 IF KC*=" " THEM 570 
590 IF KC$= M Q" THEN MENU 
600 IF ABC ( KC$ ) = 1 3 THEN 100 
610 GOTO 570 

Sample Run 

DRAW A SKETCH 
TO DRAW PRESS D 

INSTRUCTIONS PRESS I 

INSTRUCTIONS 

1) DRAWING STARTS AT SCREEN CENTER 

2) PRESS U TO MOVE DOT UP, D TO MOVE 
DOWN, L TO MOVE LEFT, R MOVE RIGHT 

3) PRESS Q. ANYTIME TO QUIT DRAWING 

NOW PRESS ENTER TO DRAW 
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Dot Sweeper 

This program endlessly prints LCD dots across and 
down, from upper left to lower right, on the display panel. 
After arriving at the lower right, it will start erasing at the 
upper left and erase down to the lower right. 

A great way to make sure your entire LCD panel is 
working properly! Press BREAK to quit. 

Program Listing 

10 CLS s CLEAR 

100 FOR Y=0 TO 63 STEP 2 
110 FOR X=0 TO 239 STEP 2 
120 PSET(X,Y) 

130 NEXT X 
140 NEXT Y 

200 FOR Y=0 TO 63 STEP 2 
210 FOR X=0 TO 239 STEP 2 
220 PRESET < X * Y ) 

230 NEXT X 
240 NEXT Y 
300 GOTO 100 


Stock Price Plotter 

Graph the movement in price of your favorite equity! 
This program allows you to look at the change in stock price 
over 200 consecutive days. 

The range of price entry is zero to 63. The stock symbol 
can be any length up to five characters. Enter prices for any 
number of days up to 200 days. 

One especially nice — and unusual — feature of this 
program is its built-in self-test mode. T ype the word TEST at 
the stock-symbol request and the machine will automati- 
cally run through a test pattern for you to see how it works! 

By the way, it is not necessary for you to see the title and 
data if you want to eliminate a step. Press ENTER and see a 
blank graph grid. 

On the graph, the Y axis is the price and the X axis is 
time in days, chronologically left to right. Use only as many 
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days as you wish, up to 200. Press ENTER with no data to 
exit the entry routine and get on with plotting the graph. 
Press any key after the graph is drawn to do a new one. 


Program Listing 

I® CLSs CLEAR 
20 DIM P<239) 

10 PRINT 3 50," STOCK PRICE PLOTTER” 

40 LINE ( 53 , 6 ) - ( 17-4, 16) , 1 ,B 
50 PRINT 3 120," SYMBOL OF STOCK TO PLOT 
: " ; : INPUT S* 

60 SL=LEN<S*> 

70 FOR 2=120 TO 159; PRINT CHR$< 127) ; 
s NEXT 7 

S0 IF 5$=" TEST" THEN 500 
100 FOR L.=40 TO 239 
110 PRINT 8 1 20 , ” PR I CE NO . ” $ L-39 5 
s INPUT P* 

120 IF P$=" " THEN 20® 

130 IF AS€(P$)<43 OR ASC < P* ) >57 THEN 110 
140 P (L ) = VAL < P$ ) 

15® T=L 

£ .L 0 p *' H 

17® FOR 2=120 TO 159sPRINT CHR$<127)5 

! NE X T Z 
180 NEXT L. 

200 CLS 

21® PRINT a 121,3* 

220 L I NE ( 39 , 63 ) ~ < 239 , 63 ) 

230 LINE (39,0 >-(39,63) 

300 FOR L=40 TO T 
310 PSET ( L , 63-P ( L > > 

320 NEXT L 

400 IF INKEY**"" THEN 400 
410 GOTO 10 

500 PRINT a 125," PLEASE WAIT FOR TEST 
PLOTT I NG " 

510 FOR L= 40 TO 239 

520 P < L ) =30+ 1 7* ( COS ( ( L-39 ) *0 . 1 1 4 ) ) 

530 Y=30- 1 NT < < L-39 > /7 > 

540 PRINT 3 213, Y? "SECONDS " 
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550 NEXT L 
560 1=239 
570 GOTO 200 


Sine Wave 

Here’s another handsome LCD demonstrator, showing 
the intricate designs possible on the display panel. 

The program has the computer place a SINE WAVE 
label at the top of the screen. Then it blacks out a large block 
of the screen as a solid reverse. It draws, from left to right, a 
simulation of a sine wave curve, top-to-bottom, top-to- 
bottom. A bisecting straight line is drawn through the 
middle of the display. And finally the picture is frozen, await- 
ing the press of any key. A keypress will blank the screen 
and restart the entire process. The program runs endlessly 
until you stop it by pressing the BREAK key. 

Program Listing 

10 CLS 

20 LINE(10, 10>-<230,50>, 1 , EF 
30 PRINT a 16, "SINE WAVE" 

100 FOR S®10 TO 230 

110 PRESET (S, 30-*-17*< COS(S*. 114) ) ) 

120 NEXT S 

200 FOR X=10 TO 230 

210 PRESET ( X , 30 > 

220 NEXT X 

300 IF INKEY*®"" THEN 300 
310 GOTO 10 


Annual Sales Bar Graph 

Plot sales results for six years. When you start a RUN, 
the computer will ask for total annual sales for each of six 
years. We have selected the years 1981 through 1986 to 
show how it works but you can change to whatever years 
you like. 

Key in a dollar-value sales-result number for each year 
and press ENTER. After the sixth year’s data has been 
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entered, the computer automatically switches to display 
and shows a bar graph for those six years of data. 

Data numbers have to be in the range of zero to 33 so 
you may have to imagine some zeros or otherwise make 
your sales-results data conform to the zero to 33 entry 
range. 

The graph display will hold, awaiting the press of any 
key to start over. When starting over, you may do entirely 
new and different numbers if you wish. The program runs 
endlessly until you press the BREAK key. 


Program Listing 

10 CLSs CLEAR 
20 DIM D < 6 ) 

100 PRINT" ENTER YEAR DATA OF 0-33” 
110 FOR Y = 1 TO 6 
1 20 Y$-= " 198" +RI 6HT $ < STR* < Y ) , 1 ) 

130 PRINT Y$; 

140 INPUT D 
150 D < Y ) ”D 
160 D~0 
170 NEXT Y 
200 CLS 

210 PRINT a 13, "ANNUAL SALES" 

220 PRINT 8 40, "1981" 

230 PRINT 8 80, "1902" 

240 PRINT a 120, "1983" 

25 0 PRINT a 1 60 , " 1 934 " 

260 PRINT a 200," 1985" 

270 PRINT a 240," 1986" 

300 FOR Y~1 TO 6 

3 10 PR I NT a ( ( Y*40 > +4 ) , CHR$ ( 224 ) ; 
320 IF D < Y ) =0 THEN 370 
330 FOR P=1 TO D<Y) 

340 PRINT CHR$ <239)5 

350 NEXT P 

360 PRINT CHR$ < 224 ) 

370 NEXT Y 

400 IF INKEY$-" " THEN 400 
410 GOTO 10 
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Time Plot 

Visualize time as advancing chronologically, left to 
right. You may plot up to 240 individual pieces of data in the 
DATA lines starting at line 300 in the program. Add DATA 
lines as needed. 

Limit the values of your data to a range of +30 to -30. We 
have supplied sample dta points in lines 300to410.You may 
eliminate those and supply your own numbers, each rang- 
ing from +30 to -30. You may include up to 240 items of data. 

Upon starting a RUN, the screen displays and you press 
any key to get a data read and plot. The display is frozen so 
you can study it. Press any key to end the run. 

Program Listing 

i© CL 8 

20 PR 1 NT TAB < 1 5 ) 5 " T I ME PLOT " 

30 LIME <0,32 ) - < 239 , 32 ) , 1 
40 PRINT 8 254,” 1 — >240 MINS" 

50 IF INKEY$™“ " THEN 50 
100 FOR X--0 TO 239 
105 ON ERROR GOTO 20© 

110 READ Y 

120 PSET ( X i 32 -Y ) 

140 NEXT X 

200 PRINT a 254, "OUT OF DATA " 

210 IF I MKEY •$•“=” " THEN 210 
220 CLS 

230 PRINT 3 25 4," END OF RUN” 

240 PRINT SPRINT SEND 


300 

DATA 

— 

15, 



1 


— 

1 

1 


— 

9 

1 

7 

5 ” 

5 , - 

3 

i ■" 

1 


310 

DATA 

1 

—V 

, O , 

5 

5 

*7 

J* s 

9 


3. 

1 

, 

1 

3, 

1 

5 , 

3. 4 , 

3. 

2 ? 

3. 

0 

320 

DATA 

8 

, CJ , 

-C-4- 

n 


© 


— 

O 

, 

— 

4, 

— 

6 , 

-8, 

— 

10 


-1 

330 

DATA 

— 

14, 

— 

l 

3, 

— 

1 

1 


— 

r‘\ 

'f 

n 

”7 

/ 

, 

5,- 

3 

, •“ 

1 

, 3. 

340 

D rt I A 

— V 

O 

, 5 , 

7 

* 

9, 

1 

1 


1 

3 

, 

15 

* 

14 

, 1 

7 

10 


8 

350 

DATA 

6 

, 4 , 

,4. 


0, 

— 

.l»w 


— 

4 

, 

-6 

* 

_..a 

w 

, ~ 3. 

0 


1 

X. 

360 

DATA 

— 

14, 

-- 

l 

5, 

— 

1 

3 


— 

1 

1 , 

— 

9, 

"7, 

— 


— 

3 

370 

DATA 

— 

i , 1 

*) 

3 

,5 

9 

'7 

V 

9 


3. 

1 i 

l 

~ v „ 
w ^ 

15, 

1 

*+ n 

3. 


380 

DATA 

1 

0,8 

, 

6 

, 4 

rt 


* 

0 


— 

x! i 

.... 

4, 

“fij , 


o 

W H 


10 

39© 

DATA 

— 

1 2 , 

— 

3. 

4, 

— 

1 

5 



1 

■wi , 

— 

1 1 

, -9 


/ 

■J 

-5 

400 

DATA 

— 

«, 

'•2 5 

1 


1 , 

3 

1 

5 


7 

a 

r 

9, 

3. 

1 , 

13, 

1 

c: 

. J , 

i 

4 

41© 

DATA 

3. 

2, 1 

0 

n 

8, 

/ 

V* ■ 

u.< 

1 

4 

, 

•4 

n 

0 , 

... 

X. 4 

--4 , 

... 

6 , 

— 

8 
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Teacher’s Grade-Curve Graph 

The computer asks the teacher for the quantity of 
grades in each of the letters, A, B, C, D and F. Then a vertical 
bar braph is created on the display screen. 

The range of quantities you can use for each letter 
grade must be from zero to 50. 

After the graph is drawn, press any key on the computer 
to do another set. Press BREAK at anytime to end the run. 

Program Listing 

10 CLS: CLEAR 
20 GOSUB 1000 

30 PR TNT" TYPE IN THE TOTAL NUMBER FOR 
EACH GRADE" 

40 PRINT" A, B, C,D,F 0 TO 50 PER 

LETTER GRADE" 

100 GOSUB 1100 

110 I N PUT " NUMBE R OF A 5 s " ; A 

120 GOSUB 1100 

130 INPU T " NUM BE R OF B ’ s " 5 B 

140 GOSUB 1100 

150 INPUT "NUMBER OF C3s"?C 

160 GOSUB 1100 

170 INPUT” NUMBER OF D’b” ;D 

IS© GOSUB 1100 

1 90 I N PUT ” NUMBE R OF F ’ s " 5 F 

200 CLS 

210 PRINT 3 160, CHR$< 147) 5 " " 5 

220 GOSUB 1010 

230 L I NE ( 95 , 1 ) - ( 93 , 62 ) 

240 LINE --(163,62) 

245 LINE -(163,1) 

250 PRINT 3 17, "A B C D F" 

260 L I NE ( 1 02 , 62 > - ( 1 08 , 62-A ) , 1 , BF 
270 L I ME ( 1 1 4 , 62 ) - < 1 20 , 62~B ) , 1 , BF 
280 LINE < 1 26, 62 ) -- ( 1 32, 62-C ) , 1 , EF 
290 L I NE (138, 62 ) - ( 1 44 , 62-D ) , 1 , BF 
300 L I NE < 150, 62 ) - ( 156, 62—F ) , 1 , BF 
400 IF INKEYfc-" " THEN 400 
410 GOTO 18 



990 END 

1000 PRINT SPACES (14)5 
1010 PR I NT "GRADE CURVE" 

1020 RETURN 

1100 PRINT a 226,” ” 

1110 PRINT a 210, CHR*< 154) ; 
1120 RETURN 


Draw Geometric Shapes 

Draw circles, triangles, squares, rectangles on the 
Model 100 Portable Computer LCD display screen. 

Circle radius may be from 2 points to 31 points on the 
screen. The triangle base may be from 2 to 238 while its 
height may be from one to 63. 

The side length of a square may be from one to 63. The 
square may be solid or outline. Press S for solid, a reverse 
filled-in black block. Or press L for an outline square. 

Rectangle width may be from one to 239 and height on 
the screen from one to 63 points. Press S for a solid filled-in 
rectangle or L for an outline rectangle display. 

After the object you select is drawn, press any key to do 
another one. The program runs until you press the BREAK 
key. 

Program Listing 

10 CLS: CLEAR 

20 PR I NT "WHICH SHAPE DO YOU WANT TO DRAW:" 
30 PRINT" CIRCLE, TRIANGLE, SQUARE, 
RECTANGLE" 

40 PRINT 

50 PRINT" PRESS C, T, S OR R" 

60 KY*= INKEY* 

70 IF KY*= " " THEN 60 
88 IF KY*=" C" THEN 200 
90 IF KY$=“T" THEN 400 
100 IF KY*~" S" THEN 600 
110 IF KY*=" R" THEN 800 
120 GOTO 60 
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200 CLS 

21.0 PRINT" DIMENSIONS ARE NEEDED FOR A 
CIRCLE" 

220 PRINT" RADIUS MAY BE 2 TO 31" 

230 INPUT" RADIUS" 5 D 

240 IF D<2 OR D>31 THEN 230 

250 CLS 

260 FOR M= 1 TO 22 
270 X=120+D*SIN<C> 

280 Y=32+D*C0S(C) 

290 PSET ( X , Y ) 

300 0=0+6 
310 NEXT M 
320 GOTO 1000 
400 CLS 

410 PR I NT "DIMENS IONS ARE NEEDED FOR A 
TRIANGLE" 

420 PR I NT "THE EASE CAN BE 2 TO 238" 

430 INPUT" BASE" 5 B 

440 IF B<2 OR B>238 THEN 430 

450 PRINT" THE HEIGHTH CAN BE 1 TO 63" 

460 INPUT" HEIGHTH" ;H 

470 IF H< 1 OR H>63 THEN 460 

480 BB--B/2 s CLS 

490 L I NE < 1 20 , 63 ) -- ( 1 20+BB , 63 ) 

500 LINE ( 120+BB,63>~( 120,63--H) 

510 L I NE ( 1 20 , 63--H ) - ( 1 20 - BE , 63 > 

520 LINE ( 120--BE, 63) -( 120,63) 

530 GOTO 1000 
600 CLS 

610 PRINT" DIMENSIONS ARE NEEDED FOR A 
SQUARE" 

620 PR I NT "EACH SIDE CAN BE 1 TO 63" 

630 INPUT" LENGTH OF SIDE" ?L 

640 IF L < 1 OR L>63 THEN 630 

650 PRINT" OUTLINE BOX OR FILLED IN SOLID?" 

660 PRINT" PRESS L (OUTLINE) OR S (SOLID)" 

670 K$= INPUTS ( 1 ) 

680 IF K*="L" THEN 710 
690 IF KS"" S" THEN 740 
700 GOTO 670 
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710 CL..S 

720 L I ME ( 90 , 63 > - ( 90+L , 63~L ) , 1 , E 
730 GOTO 1000 
740 CLS 

750 L. I NE < 90 , 63 ) - ( 90+L , 63-L ) , 1 , £F 
760 GOTO 3.000 
800 CLS 

810 PRINT” DIMENSIONS ARE NEEDED FOR a 
RECTANGLE” 

820 PRINT” THE WIDTH CAN BE 1 TO 239” 

830 INPUT” WIDTH" 

840 IF W < 3. OR W>239 THEN 830 

850 PR I NT "THE HEIGHTH CAN BE 1 TO . 43 ** 

860 INPUT” HEIGHTH" !H 

870 IF H < 1 OR H>63 THEN 860 

880 P R I NT " OUTL I NE BOX OR FILLED IN SOLID?" 

890 P R I NT " PRESS L ( OUTL I NE ) OR S < SOL I D ) " 

900 K$~ INPUTS ( 1 ) 

93.0 IF KS™" L" THEN 950 
920 IF K$="S" THEN 980 
930 GOTO 900 
950 CLS 

960 L I NE < 0 , 63 ) - ( 0+W , 63-H ) , 1 , B 
970 GOTO 3.000 
980 CLS 

990 LINE<0, 63) -(0+W, 63-H) , 1 , BF 
1000 IF INKEYS-"" THEN 1000 
1010 GOTO 10 


People Graph 

This unusual bar graph uses small figures of people to 
create the lines across the display. 

Assume you are plotting total numbers of persons 
doing something per year. The computer will ask you for 
that total number of persons for each of six years. The 
annual range can be from one to 30 . 

After the graph is drawn, the display will be frozen. The 
computer awaits the press of any key to do a new graph. The 
program runs until you press BREAK. 
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Program Listing 

10 CLSs CLEARS DIM Y<6> 

20 PRINT SPACE* < 15) 5 "EAR GRAPH" 

30 PRINT" TYPE IN NUMBER OF PERSONS FOR 
SIX YEARS" 

40 PRINT SPACE* (8) 5 "ONE TO 30 FOR EACH 
YEAR" 

50 PRINT 
60 FOR N=1 TO 6 

70 PRINT" NUMBER PERSONS YEAR " iN; 

80 INPUT Y ( N ) 

85 IF YUM >>30 THEN 70 

90 NEXT N 

100 CLS 

110 PRINT 

120 FOR N=1 TO 6 

130 PRINT “YEAR " ;N5" " ? 

140 FOR L=1 TO Y <N> 

150 PRINT CHR* ( 148 > ? 

160 NEXT L 
170 PRINT 
180 NEXT N 

190 IF INKEY*=" " THEN 190 
200 GOTO 10 


Issues Histogram 

This horizontal chart, or histogram, is used for com- 
parisons. It gives a visual or graphic comparison which is 
easily read. 

For demonstration purposes, we have selected issues 
upon which people have commented. The graph shows the 
relative strength of those issues. The sample data is imbed- 
ded in program lines 500-550. Note that each item in a DATA 
line is paired with an issue name followed by a strength 
number. Naturally, these are imaginary data provided only 
for purposes of example in this book. 

If you change the data, note that issue names are 
limited to a maximum of eight characters. Use data mul- 


tiples of six items per set as we have done here. That means 
if you add data, add it in sets of six issues. 

During a run, press any key to get the next data screen 
histogram. The machine will display no more data when 
none is available. You may use as many combinations of 6- 
issue sets as you wish. Limit the horizontal bar length in data 
lines to a maximum of 185. 

Program Listing 


10 CLS 

15 PR I NTS PACE $ (6)5” RELAT I VE 
OF ISSUES" 

20 FOR L= 1 TO 6 
30 READ Bf , X2 
40 PRINT B* 

50 X 1 “58 : Y 1 =L.*S s X2=X2+50 s Y2 
60 L I NE (XI, Y 1 ) - < X 2 , Y2 > , 1 , BF 
70 NEXT L 

200 IF INKEY$= ,!H THEN 200 
210 ON ERROR GOTO 30© 


STRENGTH 


=<L*8>+6 


220 GOTO 10 
300 CLS 

310 PRINT 8 50, "NO MORE DATA" 


320 END 

580 DATA DEFENSE ,141, POL I T I €S , 99 
510 DATA RACE, 47, SEX, 112, PRICES, 185 
520 DATA RELIGION, 15, WEATHER, 162 
530 DATA SCHOOLS, 56, DRUGS, 134 
540 DATA CABLE TV, 33, ALCOHOL , 89 
550 DATA FOOD, 185 


Horizontal Dot-Plot Graph 

Plot horizontally across the computer screen. The Y 
values on the X-Y axis must be limited to -32 to +31. 

Press any key after the graph is drawn to do another. 
The program runs continuously until you press the BREAK 

key. . . . 

The program draws a horizontal screen-center bar tor 

reference. 
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10 CLS; CLEARS DIM YC240) 

20 PRINT a 7 i "HORIZONTAL DOT-PLOT GRAPH” 
30 LI NE ( 34 , 0 ) - < 34 , 9 ) , i 
40 L I NE - < 200 , 9 ) , 1 s L. I NE - < 200 , 0 ) , 1 
50 PRINT S 30, "PLEASE TYPE IN A GRAPH 
LABEL OF UP TO 20 CHARACTERS" ; 

60 INPUT m 
70 LN—LEN < m ) 

80 IF LN< 1 OR LN>20 THEN PRINT S 80, 

SPA CE * ( 80 ) : GOTO 5 0 
90 NS= I NT ( < 40— LN ) /2 ) 

100 LS= s 6* < NS- 1 ) : LE=238— L3 
110 CLS ; PRINT a NS,N* 

1 20 L I NE ( LS , 0 ) - ( LS , 9 ) , 1 

130 IF LN/2=INT<LN/2> THEN LINE ~(LE,9),1 
■ SEINE - ( L.E , 0 ) , 1 

140 IF LN/20INT <LN/2> THEN LINE -(LE-6 
*9) , 1 SEINE ~ < LE-6 , 0 ) , 1 

200 PRINT a 80, "ENTER Y VALUES RANGING 
-32 TO +31, THEN" 

210 PRINT a 120, "PRESS ENTER, WITHOUT 
DATA, T '0 S H 0 W GRAPH" 
j‘00 A— A+l 

310 PRINT a 200, "WHAT IS THE Y VALUE AT 
X" 5 A; s INPUT R* 

20 IF R*~ " ” THEN 400 
30 Y < A ) =VAL < R* } 

40 I F Y ( A > <-32 OR Y < A ) >3 1 THEN PR I NT 
a 200, SPACE* < 39 ) s GOTO 310 
350 IF A >238 THEN 408 

360 PR I NT a 200 , SPA CF* < 39 5 
370 R$~ ! ' 15 

388 GOTO 300 

400 P R I NT a 80 , SPA CE* < :!. 6© > 

410 FOR X~6 TO A 
420 F3ET ( X, 3.1. --Y ( X 1 > 

438 NEXT X 

440 LINE <0,31)-<239,31), 1 
500 IF INKEY*™"" THEM 500 
510 GOTO 10 
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Programs 
lei 100 Portable 


iput< 


This is a book of 44 cor 


idy for immediate use ii 


the TRS-80 Portable Computer. Here are the practical, useful, efficient 
sets of software needed by businessmen, teachers, students, pare-*- 
professionals, scientists, doctors, lawyers, engineers, hobbyists 
everyone wishing to put the Model 100 Portable Computer to worthwhil 

use. 

These programs are ready to type in, ready to run. Included are m< 
sets of software listings for business, personal improvement, personal 
finance, screen graphics, even challenging game programs for a 
break. 

For businesses, the computer will compute ad costs, track inventor 
analyze cash flow, make change, select daily codes, and much more 
personal finance, the computer will compute mortgage loans, help 
plan installment-loan purchases, show how money grows and when 
deposits double, and much more. 

For your personal use, the computer will log your jogs, convert yoi 
time to universal, decipher Centigrade and Kelvin temperatures, keep 
list of names and notes, teach you Morse code, work as an alarm clocl 
convert your numbers to binary, set and break some very, very secret 
codes, and even tell you what day of the year it is. 

Graphically, it draws sketches on the LCD screen, sweeps dots, pl< 
stock market prices, displays annual sales, plots time, curves teachers 
grades, draws geometric shapes and histograms, and much more. 

All of these and more are in this handy volume of exciting new and 
different software programs for the Model 100 and NEC PC-8200 series 
portable computers. These programs will run, exactly as they are here, 
in any computer using the same Microsoft version of BASIC as found in 
the TRS-80 Model 100. With slight modification to program lines, these 
programs will run on any BASIC comouter. Trv 'em all. You II love em. 
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